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Preface 




The TSC Text Processing System is the most complex program 
released by TSC to date. With this in mind/ the following 
recommendations should be noted by the user. 


Do not expect to master the system with one reading of the 
manual. The entire document should be read lightly the first time 
through/ followed by a more rigorous reading. The "Reference 
Manual" section is very concise and contains detailed 
descriptions of all of the commands of the processor. This is 
the section which should be studied extensively. 


Since the system is so complex/ many results may occur which are 
contrary to the user's intentions. If strange output is 
encountered/ reread the sections of the manual covering the 
commands being used. fls more experience is gained/ the system 
will become an invaluable tool/ but as with any complex system/ 
it takes time to learn its operation. 









I. INTRODUCTION TO TEXT PROCESSING. 

This world is producing millions of words of text each day. 
There are words in newspapers* magazines* books* catalogs* 

pamphlets* letters* documents* and manuals* and they all need to 
be organized before publication. It would certainly be a newer 
ending task if all text formatting and organization were to be 
done manually. It simply would not get done. Thanks to 

computers and programs called text processors* text formatting 
(sometimes called word processing) becomes a fairly triwial task. 
The text processor allows for convenient and precise page 

formatting and organization. The final copy becomes extremely 

readable and neat* which are desirable features of any printed 
matter. 

Just what can be done with text processors? The simplest 
functions perform exact page fitting. In other words* if the 
text page should have one inch margins with a page number 
centered at the bottom of each page* and perhaps a special title 
at the top of each* the processor will automatically provide 
these* given the appropriate commands. Line justification is 
another feature provided. Several types are available which 
include left-hand justification (left edge straight* right edge 
ragged)* right—hand only justification (left ragged* right 
straight)* left and right (both edges are straight)* and center 
justification (both edges ragged but lines centered). fln 
extensive text processor will provide features which will allow 
special operations such as footnote processing. The TSC Text 
Processing System supports all of the above features. 

To gain some insight into the use of a text processor* 
several specific examples will be given using the TSC Text 
Processor's command set. The commands used by text processors 
vary from system to system but many are used in the same fashion. 
The TSC Text Processor uses an intermixed command and text 
method. To issue a particular command to the processor* it is 
necessary to start the command in column number one of a new line 
and begin the command with the control character* a period ('. '). 
This is the method used by most of the large scale system 
formatters including NROFF** which is the system the TSC Text 
Processor has been modeled after. 

Before any specific examples are shown* a description of the 
'environment' will be given. The environment refers to the basic 
page and formatting features which will be in effect unless 
otherwise specified. The initial or default environment is very 
important. The TSC processor* without any command information* 
will perform left and right justification with a line length of 
65 characters (the standard 8 1/2" page line width). Page length 
is initially defined to be 66 lines which is the standard for 11" 
paper and 6 lines/inch spacing. Other initial environment 
features provide for the passing of blank lines to output* and 

♦NROFF is a text formatting program written at Bell 
Laboratories. It runs on many large operating systems* 
including the UNIX Time Sharing System. 
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for any line star-ting with a space or spaces to create a new line 
with the spaces now treated as unpaddable space characters*. 
With the environment initialized as above/ it is possible to take 
any text file not having special command information embedded in 
it and still . receive a sensibly formatted output. This is an 
important feature which is often overlooked by many processor 
designers. The environment may/ of course/ be changed or modified 
at any time by the use of special commands to allow for more 
personalized and detailed formatting jobs. 

Let's take a look at some specific commands of the TSC 
processor. One of the simplest commands is the center lines 
command/ . CE N/ where N is the number of lines to be centered 
within the current line width. To use this command/ as with any 
of the commands/ it is only necessary to place the command right 
before the lines it is to affect. For example: 

. CE 2 

The Design of Text Processors 

An Introduction 

will cause the two lines listed to be neatly centered on the 
page. It can be seen that this is much easier than trying to 
manually calculate the correct spacing. 

The iriitial environment was previously described. All of 
the parameters may be easily changed by the commands which 
directly affect them. One of the commands is . LN N and is used 
to set the current line length. To set the line length to 50/ 
all that is necessary is a command line which reads as follows. 

. LN 56 

The length is now 50 columns. Another parameter easily set is 
the page length using the command . PL N/ where N is the number of 
lines per page desired. Some other commands which change 
environment parameters include . FI and . NF which turn fill mode 
on and off (no fill) respectively. Fill means that as many words 
which will fit within the current line length are placed on each 
output line. This gives a straight left text edge and a slightly 
ragged right one. No fill simply copies the input lines directly 
to the output. It should be noted that 'fill' must be on for any 
justification to occur. The justification feature may be turned 
off using . NJ for 'no justification' or the type of justification 
may be set using . JU X. The X is the selection character and may 
be null which turns justification on in the mode it was 
previously defined/ it may be R for right hand/ C for centered/ 
or N for normal (left + right). Left justification is obtained 
by turning 'fill' on and justification off. 


*Unpaddable spaces are characters which appear as spaces on 
the output but are not recognized as such by the processor. 
This means these spaces will not be 'spread out' by the 
justification routines. 
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Another environmental parameter is the capitalization mode. 
This is a special feature found only on the TSC Text Processing 
System and allows an upper case only terminal to be used for 
preparation of text which will later be output on a hardcopy 
device having lower case capabilities. The commands . CP and . NC 
turn this feature on and off respectively. If this mode is on; 
all letters are automatically converted to lower case unless 
preceeded by a '0'. The '0' should be thought of as a typewriter 
shift key in its function. Another feature also enabled in this 
mode is similar to the 'shift and lock' on a typewriter. By 
typing a 't' all characters following will be upper case until 
another 't' is encountered. 

It is often desirable; for readability; to use multiple 
spacing between lines. The TSC processor will allow this using 
the command . MS N where N is t.he space count desired and defaults 
to double spacing (N=2) if no yalue for N is given. The single 
space mode can be restore^ by either using .MS 1 or . SS for 
'single space'. 

Another group of commands deal with left margins and 
indentation. The left margin is normally set to 0 since the 
output device usually provides its own left margin (determined by 
paper positioning). Some applications require a wider margin at 
which time . LM N may be used to redefine it to be N spaces wide. 
Indent is-similar to^the left margin control with one difference. 

. LM N preserves the lj^ne length and simply moves the line to the 
right N spaces. . IN N; lon the other hand; effectively reduces 
the line length by N columns in order to preserve the right hand 
margin. Setting the indent back to 0 will restore the full line 
length. Another form of indenting can be done by the use of the 
single indent command . SI N. Single indent is identical to 
indent except it is automatically restored to 0 after the line is 
output. It should be noted that the commands for left margin; 
indent; and single indent are additive in that if the following 

string of commands is issued: 

. < 

. LM 10 
. IN 8 
. SI 5 

the resultant output line would be preceded by 23 spaces; 
succeeding lines are preceded by 18 spaces assuming another . SI 
command was not used. 

A note of caution is necessary concerning a characteristic 
of several of the processor's commands. Most commands will 
perform only their specified function but some also cause a line 
'break'. A break is the forcing of output of the line currently 
being collected in the line buffer. Normally a line is kept in 
the buffer until the specified line length has been reached; at 
which time justification may or may not occur; depending on the 
bode enabled (also assuming that 'fill' is turned on). The break 
will cause the partial line to be output without being filled; 
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but the appropriate justification will be performed. This is 
useful for starting new paragraphs or new blocks of text. Some 
of the commands which cause a break are . CE.. . FI# . NF# . IN# and 
.SI. Sometimes it is desirable that these commands do not cause a 
break. This can be done by using the 'no break' control 
character# ': '. So far# all commands have been shown proceeded 
by the normal control character# a period. To set an indent of 
10 and not cause a break# the following should be used: 

: IN 10 

The colon may be used with any command# whether the command 
normally causes a break or not. 

It is often necessary to produce a section of one or more 
blank lines. The space command# . SP N# can be used to output N 
blank lines. The space command also causes a break. If N is not 
specified# the processor will output 1 blank line. It may be 
required that the blank linos all be on the same page# maybe for 
later insertion of a photograph or illustration. The TSC Text 
Processor allows this by using the 'save space' command# . SV N# 
where N is the number of lines required. If there are not N 
lines remaining on the current page# no line is output but 
instead# printing continues and the count <N> is saved for later 
use. When the next page is reached# the 'output saved space' 
command may be used# . OS# which will then produce the remembered 
number of blank lines. A convenient method for using . OS will be 
given later. Another similar command is the 'need lines' 
command# . NL N# where N is a line count. This command says that 
there must be N lines remaining on the current page# and if there 
are not# eject to the next page. This is convenient for keeping 
special blocks of text together (keep them from being split by 
page boundaries?# or for not starting a new paragraph, at the 
bottom of a page if only 1 or 2 lines will fit. 

The commands which have been described so far will allow 
very nice page formatting. If these were all that were available 
in a text processor# much time and effort would be saved. The 
TSC Text Processing System# however# offers many more commands 
and much more versatility. One feature often needed in documents 
or manuals is the page title. There are many different ways of 
providing titles but ‘the TSC processor uses a title command which 
has the form: 

. TL 'fieldl'field2'field3' 

where fieldl is left-adjusted# field2 is centered# and field3 is 
fight-adjusted. Any one or all of the fields may be present. 
Another feature supported in the TSC processor is the ability to 
print the current page number in the text. Any place a percent 
sign appears# it will be replaced by the page number. A few 
examples will clarify the use of the title command. 
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. TL 'Main Title'" 

. TL "Centered Titlo'Date' 

. TL 

The first line will left adjust "Main Title" on the page. The 
second example causes "Centered Title" to be centered and "Date" 
to right adjusted. The final example will cause the current page 
number to be printed between two dashes. 

Now it would be nice if there was some way of getting the 
title (and maybe a few other commands) to automatically execute 
at the top and/or bottom of each page of output. The TSC 
processor offers two advanced features to perform this task: 
macros and traps. R macro is a set of commands grouped together 
and given a name. When this name is later referenced/ the entire 
group of commands will be executed. Essentially/ what results is 
the ability to write special programs using the command set of 
the processor to do specific tasks such as headers/ paragraphs/ 
special titles/ etc. The trap allows the user to specify a 
certain line on the output page where a specific macro is to be 
executed. To solve the title problem stated above it is 
convenient to define two macros.* a header macro and a footer 
macro. The purpose of the header is to perform a sequence of 
commands to make the top of each new page appear the same. The 
footer macro works at the bottom of each page. Suppose it was 
required 'that the top of each page have three blank lines 
followed by a centered title and the bottom of each is to contain 
a centered page number between dashes. The following macros and 
trap placement would satisfy this requirement. 

. DM HD 
: SP 3 

. TL "Page Title" 

:SP 3 


. DM 
: SP 
. TL 
: PG 


. RT 1 HD 
. RT -7 FT 

The . DM command is used to define a macro and the first one 
listed in the example defines the header macro called HD. The 
header macro will space down 3 lines <without causing a break 
since the no break control character ('•') was used)/ print a 
centered title/ and finally print 3 more blank lines without 
causing a break. The last line of the header macro definition is 
'..' and is the command for terminating a macro definition. The 
second macro defined is FT and is used for the footer. Upon 
execution it will space down 3 lines (without a break)/ print a 


FT 

3 

"-X-" 
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centered page number/ and eject to the next page. The . AT 
commands were used to set the trap locations. .AT 1 HD causes 
the header macro to be executed at line 1 of every new page while 
AT _7 ft causes the footer macro FT to be executed at the 7th 
line from the bottom of each page. The ability to specify trap 
locations and define macros makes titles and footers extremely 
simple and efficient. 

One of the important aspects of using a text processor is 
the ability to make a few minor command changes and greatly 
change the final copy. As an example/ suppose at the last minute 
it was decided that it would look better if there were four blank 
lines at the top of each page rather than three. If the document 
were being prepared by hand it would be necessary to retype the 
entire work to obtain the extra space. Using a small text 
processor it would only be necessary to go back and change the 
line count before each title. The TSC Text Processor and its 
ability to define macros means only one line in the entire text 
file needs to be changed. The second line of the header macro 
which is currently ':SP 3' would be changed to read ':SP 4^1 One 
simple change and the desired result is obtained! It should be 
kept in mind that when preparing documents with a processor 
supporting macro capability/ all of the often-used command 
strings should be defined in a macro so simple global changes may 
be easily performed if so desired. 

There are more advanced features supported in the TSC Text 
Processing System. One of these is the ability to do conditional 
command execution. There are four forms of this command: 



. IF 0 . XX 
.'IF E . XX 
.IF N .XX 
.IF !N .XX 


where 0 and E stand for Odd and Even page number respectively/ 
and N can be a number/ a number register <to be explained 
shortly)/ or an expression containing numbers and number 
registers. The exclamation point is the 'NOT' operator and . XX is 
any command or macro name. The command works as follows; IF the 
condition is true (page is odd or even/ or the number or 
expression is greater than zero) the command XX is executed/ 
otherwise it is not. Preceding the expression by '!' will cause 
the command or macro to be executed only if the condition is not 
true <less than or equal to zero). The following special header 
macro definitions will illustrate the use of this command. 



. DM HD 
: SP 3 
.IF 0 . TL 
. IF E . TL 
: SP 2 


"'Title' 

'Title'" 
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. DM HD 

. gp 3 

.IF V -1 . TL ''Title'' 
: SP 2 


The first header defined causes the title to be right-adjusted on 
odd numbered pages and left-adjusted on even pages. The second 
definition will print a centered title on each page except page 
number one since the value of the expression will be zero when 
the page number is one (remember that the 'X' represents the 
current page number). 

Another feature contained in the TSC processor is the 
ability to use number registers. Two types exist* one which 
allows the user to read and access certain system parameters 
including the date* page number* current indent* left margin* 
current column position* current line on the page* and line 
length. The second typo are user definable and can be used 
exactly as variables would be used in a program. N.umber 
registers are the single letters A-Z and the percent sign <X) 
already introduced. Several other number register features are 
supported by the TSC processor* including auto increment* 
assigning values to the registers* use in expressions (as seen in 
the .IF command)* and the ability to print any register on the 
output in either Arabic* capital Roman* or small Roman numerals. 

Some processors* including TSC's* allow communication 
between the processor and the operator during actual text 
processing. Three of these commands take on the following form: 

.ST 

.TM any string 

. GI any string 

The first command will stop the processing and print 'STOP' on 
the user's terminal. This may be desirable if special paper 
positioning is required or other special action is needed. When 
the processor has been stopped it may be restarted by typing any 
character on the terminal except an 'S' which will halt 
processing. The second command listed will send 'any string' to 
the terminal as a special message. It may be used before the 
'STOP' command to issue special instructions to the operator. 
The last command will 'Get Input' from the terminal and insert it 
into the output stream. 'Any string' can be used for a prompt. 
An example where this command is quite useful is in the 
preparation of form letters. The processor may prompt the 
operator for names and addresses which are then typed in at the 
terminal and automatically inserted into the text! 

One final command will be described in this introduction* 
the 'divert text' command. Sometimes it is desirable to save 
text currently encountered for later use. An example of this is 
when trying to do footnotes. It would be nice if immediately 
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after the footnote reference was made/ the actual footnote text 
could be typed/ but saved for later insertion at the bottom of 
the page. The mechanism which allows this sort of operation is 
called a 'diversion' and is only available on the more complex 
text processors/ such as TSC's. Two forms of the diversion 
usually exist- 

v • . u • 

. 01 XX 
^ .DA XX 

where .DI instructs the processor to divert the following text 
into a diversion space named XX and . DA says to divert and append 
to the diversion space named XX. During diversion/ all normal 
text processing still takes place/ but rather than outputing the 
text to the printer/ the text is written to a special place 
internal to the processor. The diversion process continues until 
the command for a divert is found without a name specifier. To 
recall the diverted text/ it is only necessary to call it by 
name/ exactly as macro calls are performed. 

As an advanced exercise and demonstration of the diversion 
process <as well as many other processor commands) a complete set 
of macros for handling footnotes will be described. The reader 
should note that the following example is very complex and 
several readings will probably be required in order to fully 
understand its operation. 

.NR B 7 
. DM HD 

. gp g 

.IF X-1 . TL 'FOOTNOTE TEST'" 

:SP 2 
. AU 1 
. NR X 0 ‘ 

. NR W 0-#B 
. IF #V . TR 
. NS 

. DM F0 
. NR V 0 
. IF #X . FT 
. CH F0 -#B 
jpg 

. DM NM 
. TL "-X-" 

! DM BF 
. DA TX 
. EV 1 

. IF !#+X-l . SA 


- continued on next page - 


8 








TSC TEXT PROCESSOR USER'S MfiNURL 

VERSION 2. 3 


DM EF 

BR 

EV 0 i ■ 

DI 

NR W -#V 

CH FO #W 

IF #N-#P-#W 

DM SR 

*'**1 v 
. r 

• f 

. CH 

;; r t i 

■ t'r ~ 

[ i* C . * r. ; • 

FO #N+1 

BR 

V * 



• •* 

ftC . \n -• 

DM TR 

.• * ^ a 

; 1 X) v 

BF:« -vsi 

» •/ & #V r 

’ -v* c ? . -v r« 

NF ~ 

' ♦ 


FE -;>o •; 

;. no 

y ^ . +' u 

FI 

$ I ’O. - 

At/ prll.C 

EF 

*• jt* 

n P-. «v~ 

DM FN 


"t •“ •? " lor , 

DI FE 

- 

f’p' 1 O 3 

r*. '■ * > . ; • V 


O r ~ 3 '< 

DM FT 


.. 1 ‘ r 

EV 1 


' P r T ' 

NF 

TX 

RM TX 

DI 

FI 

EV 0 

* ' ' • 




4 RT 1 HD 
. RT ~#B FO 
. RT -4 NM 
.CH FO 70 
. RT -#B FN 
.CH FO ~#B 
. EV 1 

. RU 1 . f 

. LN 55 
. EV 0 

This example is quite similar "to "the one given in the "NROFF 
Users' Manual" written by J. Ossanna/ of Bell Laboratories. To 
use these macros/ merely insert their definitions at the 
beginning of the text file/ and immediately after a footnote 
reference has been made/ call macro BF. Following the call/ 

■,simply type the footnote text and end it with a call to EF. 

R description of the macros follows. The first line defines 
number register B and sets it equal to 7. Number register B is 
used to specify the size <in lines) of the bottom margin. R 
header macro definition follows (HD) and provides several 
functions. After spacing down two lines/ the title is output 
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unless IT is page number one (The IF command). Two more lines 
are produced and the auto increment value is set to one. Number 
register X is cleared and it is later used to keep track of the 
number of footnotes on the current page. Next/ W is set to the 
location of the bottom margin trap and will later be adjusted as 
necessary if footnotes are added. The IF #V command checks to 
see if there is any remaining footnote text from the previous 
page and if so they are reprocessed (number register V contains 
the line count of the last diversion). Finally/ the "no space" 
mode is turned on to suppress any spaces which might otherwise 
get printed needlessly at the top of the page. 

The footer macro/ FO/ clears the diversion count/ V/ and 
checks the value of X. If X is not zero (meaning there were 
footnotes on the page)/ macro FT is invoked. The footer is then 
restored to its original location by using the Change command as 
defined by B. The last command does a page eject. Macro NM is 
used to print a centered page number at the bottom of each page. 




The begin footnote macro/ BF/ starts with a divert append 
into the diversion space called TX. The environment* is 
switched/ and if it is the first footnote on the page/ macro SR 
* is invoked which outputs a set of dashes as a simple footnote 
separator line. Diversion of the footnote text continues until 
macro EF is called. Rt this time a "break" is executed and the 
original environment is restored. The diversion is stopped with 
the DI command. Number register W is updated by the number of 
diverted lines and the footer trap line is changed to compensate 
for the added footnote lines. Finally/ if the number of diverted 
lines was great enough to move the footer trap up past the 
current line position/ the trap is reset to the next line. TR is 
responsible for rediverting any lines of footnote text which will 
not fit on the page. It is very unusual for this to happen but 
this may occur if a footnote is very long and is referenced near 
the bottom of the page. 



Macro FT is used for reading back the diverted text. It 
switches environments/ sets the no fill mode/ and calls TX/ the 
actual footnote text. TX is then removed from the macro list/ 
the fill mode is restored/ and the environment switched. The 
last group of lines is used to define the trap locations of the 
various macros. The header is set to line one/ and NM is set to 
execute four lines from the bottom of the page. The trap for the 
footer is planted at —#B/ then moved past the bottom of the page 
while FN is also placed at “SB. FO is then moved back as 
originally placed so in effect both FO and FN are placed at the 
same line/ but trap FN can only occur if the footer trap is moved 
up by the occurrence of a footnote. The last lines switch to 
environment one and initialize it for a line length of S3 and 
auto increment of one. 


♦Environment switching is a feature supported by many of the 
larger text processors (including TSC"s) which allows all of 
the major environment parameters to change simultaneously. 
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As a final example of how a -text processor can be used* a 
sample section of text will be given. The text is shown first 
with the commands and then as the text processor would output the 
final copy. 




. SP 2 
. CE 2 

tTEST OF SEVERALt 
tPROCESSOR COMMANDSt 

. SP ' 

SI 5 

©THIS EXRMPLE SHOWS HOW COMMANDS AND TEXT CAN BE INTERMIXED 
FOR LATER PROCESSING BV A TEXT PROCESSOR. 

©THE EXAMPLE STARTED BV CENTERING TWO LINES FOLLOWED 
BV A SINGLE INDENT TO SIGNIFV THE START OF A PARAGRAPH. 

©THE CAPITALIZATION MODE IS ON AND THE UPPER CASE SHIFT 
CHARACTERS ARE BEING USED. 

. SP 

. LM 18 
. LN 45 
. JU C 

©THE ADJUST MODE WAS JUST CHANGED TO CENTERING 
AS WELL AS A LINE LENGTH OF 45. 

0THE LEFT MARGIN WAS SET TO 18 TO GIVE A NICELV 
CENTERED NARROW LINE. 

©SPECIAL* EFFECTS LIKE THESE ARE EASILV ACCOMPLISHED. 

. SP 
. LM 0 
. LN 65 
. JU N 

©THE PARAMETERS WERE JUST SWITCHED BACK SO THE 
LINE APPEARANCE WILL BE RESTORED. 

THIS IS A SHORT EXAMPLE BUT SHOULD SHOW HOW THE 
COMMANDS CAN BE INTEGRATED WITH THE TEXT. 



This example appears in its expanded form on the next page. 

This introduction to text processing is intended to be only 
that and is not a complete treatment of the subject. Many 
commands and features have been omitted. The ones included are 
the most general and the most used commands which offer the user 
a great deal of control and flexibility. Hopefully some eyes 
have been opened to the wide variety of applications of the text 
processor. 
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EXPANDED EXAMPLE 


TEST OF SEVERAL 
PROCESSOR COMMANDS 

This example shows how commands and text can be Intermixed 
for later processing by a text processor. The example started by 
centering two lines followed by a single indent to signify the 
start of a paragraph. The capitalization mode is on and the 
upper case shift characters are being used. 

The adjust mode was just changed to centering 
as well as a line length of 45. The left 
margin was set to 10 to give a nicely 
centered narrow line. Special effects like 
. these are easily accomplished. 

The parameters were just switched back so the line appearance 
will be restored. This is a short example but should show how 
the commands can be integrated with the text. 


♦NOTE: This entire user's manual was prepared using the TSC Text 

Editing System and the TSC Text Processing System. 
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Command Summary 


Command 

Initial 

Default 

Cause 


Form 

Value 

Argument 

Break* 

Explanation 

I. PAGE CONTROL 




. PL +N 

66 lines 

66 lines 

no 

Page length. 

. PG +N 

N-l 

- 

yes 

Eject to next page. 

. PN +N 

N=1 

ignored 

no 

Page number. 

. LM +N 

N«0 

previous 

no 

Left margin. 

. NL N 

— 

N=1 

no 

Need N lines. 

II. TEXT FILLING* ADJUSTING; 

AND CENTERING 

. BR 

— 

1 ' . 

yes 

Break buffer. 

. FI 

fill 

- 

yes 

Fill output lines. 

. NF 

fill 

- 

yes 

No fill or justification. 

. JU C 

jst; norm 

just. 

no 

Justify on. 

. NJ 

just. 

- 

no 

No justification. 

. CE +N 

off 

N=1 

yes 

Center N input lines. 

III. VERTICAL SPACING 



. MS N 

p rev 

N=2 

no 

Multiple spacing. 

. SS 

single 

- 

no 

Single space lines. 

. SP N 

- 

N=1 

yes 

Space N lines. 

. SV N 

- 

N=1 

no 

Save N lines. 

. OS 

- 

- 

no 

Output saved lines. 

. NS 

space 

- 

no 

No-space mode on. 

. RS 

— 

— 

no 

Restore spacing. 

IV. LINE LENGTH AND 

INDENTING 



..LN +N 

65 

preu 

no 

Line length. 

. IN +N 

N=0 

prev 

yes 

Indent. 

. SI +N 

- 

N«1 

yes 

Single indent. 

. PI ST 

— 

/ 

yes 

Put string in indent. 

V. MACROS; 

DIVERSIONS; AND LINE TRAPS 


. DM XX 

— 

ignored 

no 

Define or redefine a macro. 

. AM XX 

- 

ignored 

no 

Append to a macro. 

. RM XX 

- 

ignored 

no 

Remove macro or diversion. 

. DI XX 

- 

end 

no 

Divert out to macro "XX". 

. DA XX 

- 

end 

no 

Divert and append to "XX". 

. AT -N XX 

- 

- 

no 

Set trap at line N. 

. CH -N -M 

- 

- 

no 

Change trap location. 

.CH XX -M 

- 

- 

no 

II II •• 

• . 

- 

- 

no 

End macro specification. 


♦The use of as the control character <instead of '.'> 

suppresses the break function. 
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Command Initial Default Cause 

Form Value Argument Break Explanation 

VI. NUMBER REGISTERS 


. NR 

X +N 

- 

7 

no 

Number register. 

. AU 

+N 

0 

preo 

no 

Set auto increment. 

. AR 


arable 

- 

no 

Arabic numbers. 

. CR 

. * 

arable 


no 

Capital Roman numbers. 

. SR 


arable 

— 

no 

Small Roman numbers. 

VII. 

TABS 

AND TAB 

CHRRflCTERS 



. TA 

N*. . 

none 

none 

no 

Set tab columns. 

. TF 

c - 

un. sp. * 

un. sp. * 

no 

Set tab fill character. 

. TC 

C 

none 

none 

no 

Set tab character. 

VIII. THREE PART 

TITLES 


• 

. TL 

'left 

'center' 

right' 

no 

Define title. 

. LT 

+N 

63 

prev 

no 

Length of title. 

IX. 

CONDITIONAL INPUT COMMANDS 

; 

. IF 

C COMMAND 

— 

no 

If true* do command. 

. IF 

!C COMMAND 

... 

no 

N 

. IF 

N COMMAND 

- 

no . 

•1 

. IF 

!N COMMAND 

- 

no 

It « 

X. ENVIRONMENT SWITCHING 



. EV 

N 

N=0 

N=0 

no 

Change environments. 

XI. 

SPECIAL CONTROL COMMANDS 



. CP 


no caps 

- 

no 

Capitals mode on. 

. NC 


no caps 

- 

no 

No caps mode. 

. ST 


- 

— 

yes 

Stop processing. 

. EX 


— 

— 

yes 

Exit processor. 

. PS 


no pass 

— 

no 

Pass text without proc. 

. RP 


- 

- 

yes 

Repeat entire file. 

. DH 


— 

— 

yes 

Double height line**. 

. DW 


- 

- 

yes 

Double width line**. 

. DB 


— 

— 

yes 

Double height and width**, 


*Un. sp. ■ unpaddable space character. 

♦‘•‘These commands require the output device 
to support double dimensioned character printing. 
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C -•mmand 
Form 


Initial 

Value 


Default Cause 
Argument Break 


Explanation 


XII. EXTERNAL COMMUNICATION 

. TM ST - - no 

.01 ST - - no 

XIII. MISCELLANEOUS 

. * - - no 


Send string to terminal. 
Get line from terminal. 


Comment field. 



SPECIAL CHARACTER DEFINITIONS 


Character Meaning 



Standard escape character. 
Force capital letter. 

Set capital letter mode. 
Number register specifier. 
Basic control character. 

No break control character. 


121 /* * 

»• 


NUMBER REGISTERS 


Register Meaning 



A-B 

C 

D 

E-F 

C 

H 

I 

J-K 

L 

M 

N 

0 

P 

Q-U 

V 

W-X 

V 
Z 
Y. 


User definable 
Current column count 
Day of the month 
User definable 

Get Input <. GI) character ccunt 
User def. 

Current indent / 

User def. 

Current line length 
Month 

Line count on page 
Current left margin 
Current page length 
User def. 

Last diversion line count 
User def. 

Vear <2 digits) 

User def. > 

Page number. 
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Re-Terence Manual. 


INTRODUCTION 


All input lines to the processor which are to be interpreted as 
commands should be started with the control character <a ' or 
*• in column one followed immediately by the two letter 
command. If the characters are not system command names or user 
defined macros/ the line will be ignored. The 'nobreak' control 
character (':') may be used with any command to suppress normal 
line breakage during processing. Only a single command reference 
is permitted on any one line. 


The following detailed command descriptions reference numerical 
arguments either as N/ +N/ or -N. N means any argument is taken 
as absolute and any previous value is simply replaced by the new 
value. +N is used when the argument may take any form of a 
number (either positive/ negative/ or absolute). Valid arguments 
of this form are +4/ -10/ and 3 where the old value would be 
incremented by 4/ decremented by 10/ and replaced by 3 
respectively. Arguments of the form -N may use absolute values or 
negative values which are subtracted from the current page length 
<to reference N number of lines from the bottom of the page). 
When expressions are involved using the +N argument/ the entire N 
is evaluated before the increment or decrement is applied <e. g. 
-6-3 will decrement the value by 3). Certain commands requiring 
arguments will keep the last argument assigned if the argument 
field is left empty when the command is called. 

I. PAGE CONTROL 

The page control commands are used to set the physical page 
parameters such as length/ width/ margins/ numbering/ etc. Top 
and bottom margins are not automatically provided and should be 
defined by the user with macros as described in a later section. 


PL +N Set page length to N lines. Initial value is 66 lines 
and is reset to 66 if no argument is given. Does not 
cause a break. The maximum N is 255. 

PG +N Eject to next page. If N is given the new page number 
will be adjusted accordingly. The page number is 
automatically incremanted if no argument is given and 
the command does cause a break. Max N is 255. 

PN +N Set the page number to +N. If . PN occurs before the 
first break or first text/ it will be set for the first 
page. The value is initially 1 and the command does 
not cause a break. The maximum page.number is 255. 


LM +N Set the left margin according to +N. The entire output 
line will be offset to the right by the number of 
spaces the current LM is defined. Initially there is 
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i 


no margin (N=0) and no break occurs, 
should not exceed 100. 


Left margins 


. NL N Need N lines on the page. If the distance to the next 

trap position or the bottom of the page is less than N, 
the paper is advanced to the next trap position (blank 
/ lines output). Otherwise no action takes place. No 
break occurs and the default argument is N=l. 

II. TEXT FILLING, ADJUSTING, AND CENTERING 





The following commands affect the appearance of individual lines 
of text. Twb important parameters are referenced. Fill and 
Justify. The default fill mode is to fill output lines with as 
many words as possible without exceeding the set line length 
value. Any extra words are saved for output on the next line. A 
word is defined to be any string of characters separated by a 
space or spaces. If two words are to be separated by a space but 
are not to be split across line boundaries or separated by the 
justification routines, the unpaddable space character, "X 
(slash space) may be used. The default justification mode is 
left and right, giving straight margins on both sides. Filled 
lines which contain too few character positions to completely 
fill out the specified line length are padded with spaces until 
the correct length is achieved. The space filling or padding is 
done from alternate sides of the page as each line is justified 
to eliminate 'white rivers' which may otherwise occur in the 
text. No hyphenation is performed. It is important to note that 
fill must be on in order for the justification to be performed, 
but fill may be on by itself. If fill mode is off, characters 
are passed exactly as they appear on the input file. 

BR Break the line currently being filled in the buffer. 

The line is output after specified justification is 
done but no further filling or padding is attempted. 
Input lines beginning with spaces and empty text lines 
(blank lines) also cause a break. 


pj Fill mode is turned on and subsequent output lines are 

filled. This command causes a break. 


NF Turn off fill mode (nofill). Following input lines are 

neither filled or justified, but are copied to the 
output exactly as they appear on input, without regard 
to the current line length. Causes a line break. 


. JU C 



Justification is enabled. If fill mode is off, 
adjustinq will be deferred until it is back on. If the 
justify type character, “C", is present the 
justification type is set as follows: N sets for normal 
(default, left and right), R sets right only justify, 
and C will center lines (both margins ragged). If the 
type character is absent, justification is turned back 
on with the type previously used. No break is caused. 
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. NJ Turn justification off. If fill is on, the resultant 

output line will have a straight left and a ragged 
right edge. No break is caused and the justify type 
remains unchanged. 

. CE +N Center the next N input lines. fl break occurs before 
the command and then automatically after each line is 
output. If the resultant line is longer than the 
. •. current line length, the output line will be left hand 
adjusted. The maximum count is £55. 

III. VERTICAL SPACING 

All line spacing defaults to standard single spacing. It may be 

set at any time by using the MS command. If the line spacing is 

N, N-l blank lines are inserted after each output line. The 

occurrence of a trap will terminate any remaining spacing count. 

Contiguous space should be saved by using the SV and OS commands. 

. MS N Set multiple line spacing to N. N-l blank lines are 

inserted after each output line. No break is caused 
and if N is not specified the value of 2 will be used 
(double spacing). Max value is 255. 

. SS Set single space mode. No blank lines are output after 

'text lines and no break occurs. 

.u-v-, 

. SP N Space N lines. The number of: output lines is limited 

to the distance to the nearest trap or bottom of the 
page. If nospace mode is on, no spaces are output. If 
no value for N is given, it defaults to 1. SP causes a 
break. 

. SV N Save N lines of space. If the distance to the next 

trap (or the bottom of the page) is greater than N, N 
lines are output, otherwise no lines are immediately 

output but the count (N) is saved for later output (see 

OS). Subsequent SV commands will overwrite any 

previously remembered N. Nospace mode has no effect. 

The command does not cause a break and the default 

value for N is 1. 

. OS Output saved space. This command is used to output any 

previously saved space from the SV request. The 

remembered count is cleared after calling OS and 
nospace mode has no effect. A break does not occur. 

. NS No-space mode is turned on. The no-space mode inhibits 

SP requests and PG requests without a next page number. 
This mode is automatically turned off after the output 
of a line of text. No break is caused. 

. RS Restore space mode. If the nospace mode is on, it is 

turned off with this command without causing a break. 
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IV. 


LINE LENGTH AND INDENTING 


Using -the following set of commands. the user has complete 
control over the line length and various forms of indenting. The 
line length includes all indent spaces but does not include left 
margin spacing. As . long as the fill mode is turned on/ the 
resultant output line will be less than or equal to the current 
line length minus the indent. Line lengths of less than 6 
columns are not permitted. 


. LN +N 



. IN +N 


Set line length. The initial value is 65 columns and 
the command does not cause a line break. Line lengths 

must be between 6 and 255 columns inclusive. 

1 

Set the line indent according to N. With a line length 
of L and an indent of N.. N spaces are output before 
each line and the remaining text is restricted to a 
size of L-N. Initially the indent is 0 and the command 
causes a break. 




. SI +N Single indent N spaces. Only the next output line will 
be indented by the amount specified by N. Note that 
single indenting may be done backwards into an indent 
field. (e. g. if indent is 10/ SI -4 would temporarily 
set the overall indent to 10-4 or 6). IN and SI counts 
are cumulative and the final value may not be negative! 
This command causes a line break. 

.PI ST Put string in indent field. The string represented by 
"ST” (leading spaces ignored)/ is inserted into the 
field normally filled with spaces by the indent count. 
If the string is longer than the indent count/ the 
string will be truncated so it will not extend past the 
indent field. 

V. MACROS/ DIVERSIONS, AND LINE TRAPS 

A macro is a set of commands and/or text which can be assigned a 
name and called by name at a later time. All macro names are two 
characters long and must be different from any names already in 
existence in the system command name table. Macros are defined 
or redefined by using the DM command/ or by using the output 
diversion command/ DI. Macros already in existence may be 
appended to by using the AM or DA commands. If a macro is named 
XX/ it may be invoked by an input line beginning with ". XX". A 
trap may also be placed at a specific vertical page placement to 
cause automatic macro execution at that point by using the AT 
command. During macro definition/ number registers are not 
expanded into numeric values but are at the time the macro is 
executed. No other special character translation is done during 
macro definitions <e. g. tab expansion/ etc. ). Keep in mind that 
macros may be any combination of commands/ macro calls/ and text/ 
but a macro may not define another macro (it may create a 
diversion). 
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R diversion is treated as a macro upon execution but is created 
in a different manner. Processed output may be diverted into a 
macro space for such purposes as footnote processing or vertical 
page size determination for conditional changing of page 
parameters (number register V contains the last diversion line 
count). Rll normal processing takes place during a diversion 
except left margins. It is standard practice to read back the 
diverted text in 'nofill' mode to suppress further line 
processing. 

If at any time during macro definitions or diversion creation the 
macro space is overflowed; a system error will be generated and 
processing will be halted. None of the macro commands cause 
breaks in the line filling. 


DM XX 


RM XX 


RM XX 


DI XX 


c 


Define or redefine a macro with the character name XX. 
The actual macro begins with the next input line. The 
macro definition is copied until the termination 
character . " is found starting in column i. Macros 
may not contain DM requests but may create diversions. 

Append to the macro named XX. This command acts 
exactly like DM except the following input lines are 
appended to an existing macro rather than creating a 
new named space. 

Remove macro or diversion. The macro named XX is 
removed from the name list and subsequent calls to this 
name will have no effect. 

Divert output into the macro space named XX. The macro 
named XX is defined or redefined at this point. fill 
normal text processing occurs during diversions except 
left margin page offsetting is not done. The diversion 
process is ended when another DI or DR is encountered. 
Diversions can not be nested! The count of the number 
of lines last diverted is kept in number register V for 
possible later reference. 


DR XX 


Divert append version of DI. 
both commands. 


The same rules apply for 


AT -N XX At line N invoke macro XX. Any macro previously 
planted at line -N is replaced by XX. N Is measured 
from the top of the page <0 or 1 may be used to 
represent the top) and -N is measured from the bottom 
• of the page <e. g. if the page length is 66; line -1 

represents line 66). If no macro name is given with 
the command* the trap located at line _ N; if any; is 
removed. 


. CH -N -M Change trap. See next. 


— 5M — 
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.CH XX -M Change the trap planted at line —H to occur instead at 
line -M. Alternately, change the location of the trap 
for macro XX to line -M. If there is not a trap set at 
-N, the request is ignored. 

Terminate a macro definition. 

VI. NUMBER REGISTERS 

Number registers are a type of variable used during processing. 
There are two classifications, user definable and system. Number 
registers have single character names (A through Z and 
Number registers may be used any time a number is expected in a 
command and also may appear imbedded in text. There are two 
methods of referencing a number register: 

#X 

#+X 

where is the register designator character and X is the name 

of the register. When using 'V.' it should not be preceeded by 
the The in the second example specifies that the 

number register is to be auto incremented prior to its use and it 
will retain the new incremented value. The auto increment amount 
is set using the RU command. When a number register reference is 
encountered it is converted to decimal, lower case Roman, or 
upper case Roman, as determined by the mode set. Number 
registers appearing in macro definitions are not converted until 
the macro is actually executed. Number registers may also be 
used to construct expressions any time a number is expected in a 
command (expressions may not be imbedded in text). The 

expressions are evaluated left to right and may contain only the 
operators and 

. NR X +N Assign a value to number register X. This command 
should only be used to assign values to user definable 
number registers. 

. AU +N Set the auto increment amount to +N. Any time a 

register is referenced as "#+X", the AU value will be 
added to it prior to its actual use. 

.AR Arabic numbers. See below. 

. CR Capital (upper case) Roman numbers. See below. 

. SR Small (lower case) Roman numbers. Number registers 

will subsequently be converted into Arabic, capital 
Roman, or small Roman respectively. This mode is 
initially Arabic and also applies to the outputting of 
page numbers using the 'V .'. 
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The following is a list of the system and user definable number 
register names. 

Register Meaning 


A-B 

C 

D 

E-F 

G 

H 

1 

J-K 

L 

M 

N 

0 

P 

Q-U 

V 

W-X 

V 

2 

y. 


User definable 
Current column count 
Day of the month 
User def. 

Get input <. GI> character count 
User def. 

Current indent 
User def. 

Current line length 
Month 

Line count on page 
Current left margin 
Current page length 
User def. 

Last diversion line count 
User def. 

Vear <2 digits) 

User def. 

Page number 


VII. TABS AND TAB CHARACTERS 


The currently defined horizontal tab character is replaced by the 
required number of fill characters corresponding to the distance 
to the next defined tab stop column (on the line currently being 
filled). The fill character is normally the unpaddable space 
character but may be defined by using the TF command. Up to 20 
tab stops may be defined and should be set in ascending order. 
Initially no tab stops are defined and the tab character is null. 
Any non alphanumeric character may be defined as the tab 
character. It should be noted that using tabs with the fill mode 
turned on can result in nonsensical output tab fields since the 
user may not know what the current output column is. 


. TA N/ . . 


. TF C 


TC C 


Tab stop settings. The default tab stops are all null 
(none) and a total of 20 may be defined. The stop 
values may be separated by spaces; commas/ or any other 
nonnumerics/ e. g. TA 10/ 20/ 25/ 40. 

Set the tab fill character. This is normally the 
unpaddable space character but may be defined to any 
nonnumeric printable character. If 'C' is not 
specified the fill defaults to the unpaddable space 
character. 

Define the tab char - cter. Initially the tab character 
is null (none) bu J may be defined to any nonnumeric 
printable character. If 'C' is not specified the tab 
character again becomes null. 
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VIII. THREE PART TITLES 

Very convenient titling may be performed by using the TL command. 
Three fields may be used for left, centered, and right 

justification of titles. Rll 3 fields may be used or any 

combination of fields. The justification is done with respect to 
the title length which is independent of the defined line length. 
This length is initially 65 columns. The use of TL has no effect 
on current line accumulation (does not cause a break). .TL is 
usually used in header and footer macros. For example, 

TL w iH print the page number in the center of the title 

length. 

v .TL 'LEFT'CENTER'RIGHT' 

Place titles adjusted according to field. The strings 
represented by "LEFT", "CENTER", and "RIGHT" are 

respectively left adjusted, centered, and right 

adjusted within the current title length. Any of the 
fields may be empty and any nonnumeric printing 

character may be used in place of the field delimiter 
The "X" character will be replaced by the current 
page number in Arabic or Roman representation. 

LT +N Set title length. The lengths of titles and lines are 
separate parameters. Indents do not apply to titles 
but left margin adjustment does. 

IX. CONDITIONAL INPUT COMMANDS 

Input command and macro calls may be performed on a conditional 
bases. Chained conditionals are permitted as in: IF #R IF #B . XX. 

.IF C COMMAND See next 

.IF !C COMMAND . 


IF N COMMAND 


IF !N COMMAND 

IF is the conditional command. "COMMAND" can be any 
system command or macro name. "C" is a built in 
condition code and can be either 0 or E to represent 
Odd or Even page numbers respectively. "N" is any 
number and can be a number, a number register, or any 
combination of these in the form of an expression using 
addition and subtraction. If the condition is true 
(the built in condition is satisfied or the number is 
greater than zero), the command or macro named is 
executed, otherwise the command is ignored. If C or 
"N" are proceeded by a '!' (not), the command is 
executed if the condition is false or the number is 
less than or equal to zero. 


-24 










TSC. TEXT PROCESSOR USER'S MflNURL 

VERSION 2. 3 


X. ENVIRONMENT SWITCHING 


There are a‘ number of parameters which control the text 
processing and are grouped together and called the environment. 
These environment parameters may be changed all at once using the 
switch command. There are two environments, 0 and 1. They both 
have identical initial values for all parameters. Parameters 
within these environments are those associated with: 

line length vertical line spacing 

indenting centering count 

adjusting auto increment 

filling partially collected words 

title length partially collected lines 


Rll other parameters are global, or in other words, they are not 
switched with the environment but remain unchanged. Examples of 
global values include left margin, page number, current line 
number, number registers, trap tables, and macro definitions. 
Since partially collected words and lines are kept with the 
environment, switching environments will not cause a break and 
will also preserve any left over words. 

. EV N Change to environment N where N can be 0 or 1. If N is 
left null, environment 0 is assumed 


XI. SPECIAL CONTROL COMMANDS 

The following commands control certain aspects of the processor. 
The double height and width commands are hardware dependent. Vou 
should refer to the "adaption" section of this manual for 
details. 

• CP Turn capital letter mode on. When enabled, this mode 

will allow the use of an upper case only terminal to 
prepare text for later output to a device which 
supports both upper and lower case. Each character is 
automatically converted to lower case unless it is 
immediately preceeded by a '0' at which time that 
character remains upper case. Strings of characters 
may be kept in upper case by enclosing them between up 
arrows "t". The “0" is like a shift key and the "f" 
acts like a shift and lock key. 

NC Turn off capitals mode. Initially this mode is off and 

the special capitalization characters <"0" and "t"> are 
ignored. 

ST Stop causes processing to temporarily halt.and the word 

"STOP" is output to the terminal. At this time, typing 
an "S" will cause all processing to be stopped and the 
processor will be exited. Typing any other character 
will cause processing to continue. The stop command 
does cause a line break 
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. EX 

Exit the processor. Text processing is stopped just as 
if all input had been finished. This command is useful 
in conjunction with the IF command. 

. PS 

Pass all input to the output. This command is 
primarily intended as a debugging aid since it allows 
all input (including command lines) to be passed to the 
output. No command interpretation or processing is 
done and once in this mode/ the remaining text will be 
passed until the end of the input file is reached. 

. RP 

Repeat processing on file. This command will cause the 
file to be 'rewound' and all processing to be repeated. 
This is useful for some form letter type applications. 

. DH 

Print the next line in double height characters. This 
feature requires special hardware on the output device. 
Consult "Adaptions" for details. 

. DM 

Print the next line in double width characters. 

Requires special hardware. 

. DB 

Print next line in both double height and double width 
characters. Requires special hardware. 


XII. EXTERNAL COMMUNICATION 

Two commands exist which allow for communication between the 
processor and the user during actual text processing. The TM 
command is useful for sending special instructions to the 
terminal such as paper adjustment or character font change 
information. The GI command can be used in form letter 
preparation or insertion of special text strings while processing 
is ; taking place. 

\ 


. TM ST 

Send a message to the terminal. ST may be any string 
of characters or words. The leading blanks are 
ignored. The message is simply output to the terminal 
and may be. used before the Stop command to issue 
special instructions. 

GI ST 

Get input from the terminal. If ST is present (any 
string)/ it is output to the terminal as a prompt 
message. Characters typed from the terminal following 

r 

the execution of GI are automatically inserted into the 
input stream for text processing. This command can be 
used to get name and address information for form 
letter preparation. The 'get input' function is 
terminated by typing a carriage return/ therefore/ only 
one line of text may be entered with each GI command 
executed. After completion of the command/ the number 
register G contains the character count of the string 
typed (not including the carriage return). 


i 
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XIII. MISCELLANEOUS 

The following describe some of the smaller features of the text 
processor. 

.* Comment field. This may be used to insert comments 

into the input text and will be ignored by the 
processor. No output is created with this command (the 
~ comment is not passed to the output). 

Special Characters 

A/ Standard escape character. This character is used to 

remove special meaning from a character. For example/ 
if a percent sign ("X") is needed in the output it is 
necessary to proceed it with the otherwise it will 

be interpreted as the page number <e. g. To print 

a backslash/ must be used. 

(? Force upper case letter if in the capitals mode (CP). 

This acts similar to the 'shift' key on a typewriter. 
Example- "@test" will be output with an upper case "T" 
and lower case "est". 

t Upper case string delimiter This character acts 

similar to the 'shift and lock' key on a typewriter. 

.As an example/ Tthis is a testt would cause "this is a 
test" to be output in all upper case characters. The 
capitals mode must be on (CP). 

# Number register specifier When an alphabetic 

character is immediately proceeded by a it will be 

interpreted as a number register. Example: "#A" refers 
to number register "A". 

the period is the basic command control character. If 
in column one/ it specifies a two character command or 
macro name follows 

: The colon is the no-break control character. It 

functions exactly like the period/ but will suppress 
breaks caused by various commands. 

X Page number symbol. Any place the percent sign 

appears/ it will automatically be replaced by the 
current page number 

Special notes 

A. Any titne input is being typed into the processor/ typing a 
'control X' will delete that line and issue a "?" as a prompt. 

B. The processor automatically makes sure there are two spaces 

after " ! ", or This does not apply to punctuation 

immediately followed by another character. 
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Using 'the T ex-t Pr ocessor 


I. BRINGING UP THE SYSTEM 

It is assumed the text processor is resident in memory and that 
any necessary adaptions have been made. The entry point to the 
program is hex 200. The system should respond with the copyright 
message and the prompt: 

DATE <MM:DD:VV>? 

If the date is not required by your program* simply type a 
carriage return. If the date is required* it should be entered 
in the form shown. Spaces or nonalphanumeric characters may be 
used between entries. As an example* to enter June 20, 1977* 
type the following: 

6 20 77 

If an error is made during entry* simply type a 'control X' and a 
new question mark "?" prompt will be issued. At that time* 
re-enter the entire date. The 'control X' may be used any time 
the processor prompts for input. The next prompt issued is: 

• TYPE P FOR PRINTER. . . 

Typing a P will route all processor output to the printer device 
<using the user supplied printer I/O routines - see "Adaptions ">. 
Any other character will cause the output to be sent to the 
terminal. If the printer was not selected* the next prompt will 
be: 

LINES PER SCREEN? 

Typing a carriage return will result in uninterupted output from 
the processor to the terminal. Typing a number will cause that 
number of lines to be output* at which time processing will 
temporarily halt. To restart* type any character except a 
carriage return and the processing will continue. A carriage 
return will cause the processor to be exited. The final prompt 
is: 

PAGE LIMITS? 

and is used to specify a particular block of pages to be 
processed. Typing a carriage return will cause all pages to be 
processed and output. Typing two numbers separated by a space or 
graphic character will cause only the pages between those numbers 
(inclusive) to be output For example* typing: 

10* 16 

will result in only pages numbered 10 through 16 to be output. 


-29- 






TSC TEXT PROCESSOR USER'S MANUAL 
VERSION 2. 3 


If just one number is entered/ the processor Mill start outputing 
at that page number and continue to the end of the file. It 
should be noted that the processor always starts numbering the 
first page as number one unless instructed otherwise. As the 
processor is working/ it may be stopped at any time by pressing 
the "BREAK" key on the terminal. This key must be held down at 
the end of line output. The processor will respond with: 



BREAK 


output to the terminal. At this time processing may be continued 
by typing any character except an "S" which will cause the 
processor to be exited. 

II. GENERAL USE 

There are several things to keep in mind while preparing text for 
the text processor. Remember that all commands must begin in 
column one. It is usually most convenient to begin each sentence 
on a new line for easy future editing. Macros should be used as 
often as possible. The reason for this is to keep global changes 
as simple as possible/ e. g. change only one line in a macro as 
opposed to changing single commands scattered throughout the 
file. It is not necessary to understand how the macros provided 
in this manual work in order to use them. All that is necessary 
is to know how to use them which is thoroughly explained. Rs 
experience is gained with the processor/ you will be able to 
create your own special purpose macros for easy formatting. 
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MRCRO LIBRRRV 


The following macro descriptions range from simple header and 
footer macros to a very complex footnote macro. It is not 
necessary to understand how the macros work.- just how to use 
them. Each macro includes a description of what it does and how 
it can be used. 

I. HERDERS RND FOOTERS 

These macros are used to define top and bottom margins and also 
specify the contents of these margins., such as page numbers, 
titles* etc. Rlmost all processing jobs will require some sort 
of header and footer. Usually the macro definitions are placed 
at the beginning of the file <they need to appear before they are 
called for execution). The "RT" command is used to set the trap 
location <the line at which the macro should automatically 
execute) of each of the macros. Headers are set to line 1 and 
footers to a specific distance from the bottom of the page. Once 
these macros have been defined and their trap locations set* they 
can be forgotten about since the processor will do all the rest 
of the work. The first macro is a simple header macro which 
provides two blank lines, a centered title* and two more blank 
lines at the top of each page. 

. DM HD 
: SP 2 

. TL "CENTERED TITLE" 

: SP 2 
. NS 
;0S 


. RT .1 HD 

fill of the header macros will contain a NS and OS command. NS 
will suppress any unnecessary spacing which may occur due to the 
unpredicted appearance of a SP command. For example* if the 
start of a new paragraph just happens to start at the top of a 
new page* there is no reason for the paragraph macro to space 
down two lines* since we are at the top of the page. NS will 
keep this from happening. The OS command instructs the processor 
to output any 'saved space' from the previous page. The next 
header is a little fancier. It does everything the previous one 
does except the titling is done a little differently. Here* if 
the current page number is even* the title is left hand 
justified. If the page is odd- the title is right hand adjusted. 
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. DM HD 
:SP 2 

.IF E . TL 'EVEN TITLE'" 
. IF 0 . TL "'ODD TITLE' 
:SP 2 
. NS 
. OS 


. AT 1 HD 


Subtitles may be used by simply placing a second TL command which 
contains the subtitle. The last header example is for those 
using a printer which uses separate sheets of paper (as opposed 
to continuous fed). This macro will issue a message to the 
terminal which instructs the operator to insert a new sheet of 
paper* before each page of text is processed. The paper should 
be set up such that the first line printed will be the top line 
of the paper. The operator will have to type a character on the 
terminal after each stop to restart the processor. Remember that 
typing an "S" will halt the processor. 




. DM 
. TM 
: ST 
: SP 
. TL 
: SP 
. NS 
. OS 


.AT 1 HD • 

Footer macros are similar to headers except they are set to 
execute at the bottom of a pagie. For example* specifying 
AT -6 FO would cause the macro called FO to automatically execute 
at the 6th line from the bottom of the page. The first footer 
gives a five line bottom margin with the page number between 2 
dashes centered on the page* 3 lines from the bottom. 


HD 

INSERT NEW SHEET 
2 

"TITLE" 

2 


. DM FO 
: SP 2 

. TL "-X-" 
: PG 



. AT -5 FO 

It is often desirable to have page numbers on every page except 
page number one. The following footer will do exactly that. 
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. DM 

FO 

: SP 

2 

. IF 

1 . TL 

: PG 


. AT 

-5 FO 


There are several other types of header and footer macros which 
can be created. Some of these appear in the macros which follow. 

II. PARAGRAPHS AND HEADINGS 

There are many forms of paragraphing. The TSC Text Processor 
does not restrict one to using one particular form. One type of 
paragraph is to produce one blank line and start the first line 
of the paragraph indented five spaces. The following macro does 
just that: 

. DM PP 

. SP ‘ 

. SI 5 


To use the paragraph macro/ simply call it by name any time a new 
paragraph is desired (e. g. type ". PP" in column one). One 
little feature which may be added to the macro is a need lines 
command/ NL. In the following example/ NL 3 is used to tell the 
processor that we desire at least three lines be left on the page 
before a new paragraph is started. This will keep one or two 
lone lines from being placed at the bottom of the page. 

. DM PP 
. SP 
. NL 3 
. SI 5 


Many other types of paragraph macros may be created along the 
same lines as those presented. 

Another useful macro can be created for major heading creation. 
One type of major heading might have a centered title spaced two 
lines down from the last line of text. The macro to accomplish 
this may look as follows: 

. DM MH 
. SP 2 
. CE 


To use this macro/ type ". MH" when the heading is desired, 
next line should contain the heading title. For example: 


The 
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IV. 


TWO COLUMN OUTPUT 


The TSC processor does not support backward line feeds so it is 
necessary to use some operator intervention in order to produce 
two column output. The following set of macros will produce two 
column outputs each .column being 31 characters wide. When the 
text of the first column reaches the bottom of the page/ the 
string "REPOSITION PRPER" will be output to the terminal and a 
"STOP" command is executed. At this time the operator should 
reposition the paper to the top of the page and then restart the 
processor by typing any key but "S". 


!* 

. LN 

31 


% 

NR 

DM 

A 9 

HD 



. IF 
: SP 

#A . PA 

2 



. AU 

1 



. IF 

!#+A-l 

FL ' 


. IF 

#A-1 :SP 



: SP 

2 



. IF 

#A-1 . LM 

34 


. DM 

FO 


• 

:.SP 

2 



. LM 

0 



. IF 

#A-1 . TL 



. IF 

#A-1 . NR 

A 0 


:PG 




. DM 

PA 


. TM 

REPOSITION P 

& 

: ST 
. PN 

y.-i 



. AT 

1 HD 



. AT 

-5 FO 



. BR 




title 



It should be noted that these macros also contain their own 
special set of header and footer macros which may be modified as 
desired. 
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Line of text. 

. MH 

Heading Title 

The last two macro examples are quite simple/ but show how even 
two or three lines of.commands may be replaced by a single macro 
call. This is quite useful if these operations are going to be 
repeated many times throughout a document. 

III. FOOTNOTES 


The following set of macros is all that is required to do very 
efficient and easy footnote handling. A' description of how they 
actually work is contained in the introduction of this manual. 
To use these macros/ it is only necessary to include their 
descriptions at the beginning of your file. As soon after a 
footnote is referenced in the text/ call the macro BF <begin 
footnote) to begin the footnote. Immediately following this 
call/ type the contents of the footnote/ followed by a call to 
the macro EF <end footnote). The following serves as an example: 


Text here referencing a footnote*. 
. BF 

♦Footnote contents typed here and 
.may be several lines long. 

. EF 


It should be noted that the footnote macros contain their own 
header and footer macros which may be modified as desired. These 
macros should be the first lines of a file. 

. NR B 7 
. DM HD 

• gp g 

• IF m /.-l . TL 'FOOTNOTE TEST'" 

: SP 2 

. AU 1 
. NR X O 
. NR W 0-#B 
. IF #V . TR 
. NS . 

. DM FO 
. NR V 0 
. IF #X . FT 
.CH FO -#B 
: PG 

. DM NM 
. TL "-X-" 




continued 
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. DM BF 
. DR TX 
. EV 1 

.IF !#+X-l . SR 

. DM EF 
. BR 

. . EV 0 

. DI 

.NR W -#V 
ru pn iiu 

.IF #N-#P-#W . CH FO #N+1 
. DM SR 


. BR 

. DM TR 
. BF 
. NF 
FE 
. FI 
EF 

. DM FN 
DI FE 

. DM FT 
. EV 1 
. NF 
. TX 

. RM TX 
. DI 
. FI 
. EV 0 

. RT 1 HD 
. RT -#e FO 
. RT -4 NM 
. CH FO 70 
. RT -#B FN 
. CH FO -#B 
. EV 1 
. RU 1 
. LN 55 
. EV 0 


Please remember -that it is not necessary to fully understand how 
these macros work as long as you know how to use them. 
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The last set of macros and examples deal with form letters. 

These macros are shown with some sample text. The RP (repeat) 

command is used so that the file is repeated over and over* until 

just a carriage return is typed in response to the "NAME?" 

prompt* at which time processing halts. The macro creates a name 
and address header at the top of each page. Following is "Dear 
(persons name)" and the text of the letter. 

, . JU N 

. SP 6 
. NF 

. DI NM 
" . GI NAME 
. BR 
. 01 

. IF !#G . EX 
. NM 

.GI STREET 

.■GI CITV STATE & ZIP 
. SP 3 
. FI 
DEAR 
. NM 
SP 

SI 5 

THRNK VOU FOR VOUR INTEREST IN THIS ORGANIZATION. • 

WE ARE SURE THIS IS THE START OF A LONG PROFITABLE 
FRIENDSHIP. 

IF VOU HAVE ANV QUESTIONS* FEEL FREE TO CONTACT US. 

. SP 2 
. JU R 
THANK VOU 
. PC 


More intricate form letter macros could certainly be created. 
This one shows how the 'name' can be saved for later use in the 
body of the letter. 
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Sys-tem Rdap-tions 


I. PROCESSOR INITIALIZATION 

Before the processor is run, three pieces of information need to 
be supplied to the program. 

FSTRRM <loc. $0097-0098): These two bytes should be 
set to contain the address of the first byte of source 
text in RAM. For example, if your text file begins in 
RAM at location $3008 then FSTRAM <$0097 & $0098) 
should be set to $3000. 

4 * 

B. LSTRAM <loc. $0099-0098): These two bytes should be 

set to contain the address of the first empty byte past 
the source text file. For example, if your text file's- 
last character <a carriage return) is at location 
$3R50, then LSTRAM <$0099 & $009A) should be set to 

$3R50+1 or $3A51. 

C. JNKCNT <loc. $0090)’ This byte should be set to 
contain the number of bytes following the carriage 
return in each line before good text resumes. The 
processor needs text lines in the following form: 

* text text text C. R. text text C. R. etc. 
where C. R. represents a carriage return <$D). If 
there are any non text characters after the carriage 
return, the proceesor must be instructed of these so it 
can ignore them. For example, the TSC Text Editing 
System saves text in memory with 3 line number bytes 
preceding each line <after each carriage return). In 
this case, JNKCNT <$009D) should be set to 3. 

II. INCH 

INCH is the routine called in MIK6UG for character input. If not 
using MIKBUG you will have to provide your own input routine. It 
must not destroy B or X and should return the ASCII character 
with parity removed in the A accumulator. This routine is called 
by a JMP instruction <7E> from location $0206 and is presently 
set to $E1AC. 

III. OUTCH 

OUTCH is the routine called to output a character to a terminal. 
It is presently referencing the output character routine in 
MIKBUG <$E1D1). If you are supplying your own, it must not 
destroy B or X and should output the ASCII character contained in 
the A accumulator. This routine is called by a JMP instruction 
from location $0203. 






TSC TEXT PROCESSOR USER'S MANUAL 
VERSION 2. 3 


IV. MONITOR 

MONITOR is the exit point from the processor. It currently is a 
jMP to #E0D0 CMIKBUG). To set your own address* change the JMP 
instruction located at #0209. 

V. STACK REFERENCES 

The stack pointer is initialized to $01FF at two different 
locations in the program. If you are mowing the stack location* 
be sure to change both references. The stack is loaded at #0212 
and #0CC5. 

VI. PRINTER ROUTINES 

There are two printer routines referenced by the processor* PRNIT 
<#15A4> for printer port initialization and PROUCH <#15C4> for 
output a character to the printer. These routines need to be 
supplied and are simply set up as RTS (39) in the processor. 32 
bytes have been reserved for each routine. The PRNIT should do 
any necessary port and/or printer initializing. PROUCH should 
output the contents of A to the printer keeping B and X 
preserved. These routines are called from #020C and S020F. 

VII. TEST BREAK ROUTINE 

The routine at location #1471 is used to check for the occurrence 
of the "BREAK" key during processing. This routine assumes a PIA 
is being used for I/O in a MIKBUG configuration. If an ACIA port 
is being used* substitute the following code in for the TSTBRK 
routine. The processor can now be halted by typing a '.csuatrol" - '*C' 
during text processing. rff 


* 

* BREAK ROUTINE FOR ACIA 

* 


1471 





ORG 


#1471 


1471 

B6 

80 

04 

TSTBRK 

LDA 

A 

ACIA 

ACIA BASE ADDRESS 

1474 

44 




LSR 

A 


GET STATUS 

1475 

25 

01 



BCS 


TSTBR4 


1477 

39 



TSTBR2 

RTS 



NO CHARACTER 

1478 

B6 

80 

05 

TSTBR4 

LDA 

A 

ACIA+1 

GET CHARACTER . n 

147B 

81 

03 

lb 


CMP 

A 

#$03 

IS IT ESCh^*' 

147D 

26 

F© 



BNE 


TSTBR2 


147F 

CE 

15 

92 


LDX 


4BRKSTR 

POINT TO STRING 

1482 

7E 

0C 

D8 


JMP 


ST0P1 

OUTPUT IT 

8004 




ACIA 

EQU 


#8004 

SET AS REQUIRED! 
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VIII. MACRO STORAGE SPRCE 

The macro storage space is presently set to approximately 1. 5K 
and resides between S19F4 and $1FF2. IF it is Found that more 
space is required, the end pointer to the space (LMACRO) is 
referenced at S02FE and may be changed as needed. 

IX DOUBLE CHARACTERS 

Three commands exist in the processor which require special 
printer hardware These are double height (DH>, double width 
<DW>, and double both (DB> Some commercially available printers 
will print single lines oF double size characters iF a special 
control character is received prior to the line. The double 
height control character ($121 is reFerenced at location $0C08. 
The double width control character ($0E1 is reFerenced at 
locations $0C13 and $0C1C. These may be changed as required. 

X. MAKING THE TSC TEXT EDITOR AND PROCESSOR CO-RESIDENT: 

Following is a description oF the steps necessary to relocate the 
TSC TEXT EDITING SYSTEM, allowing co-resident operation with the 
TSC TEXT PROCESSING SYSTEM. The TSC Relocator program is 
required. 

1> Load the RELOCATOR 

21 Move it to $3300 and set its stack pointer to S3FFF 
(location $3S01 aFter relocation must be changed to $3F1 
31 Load the TSC TEXT EDITING SYSTEM 

4> Load the program called 'LPR-' which has been included with 
this documentation. Type in all code generated by that 
program. 

5> Relocate the Editor-LPR pair according to the instructions 
given below. (Begin execution oF the RELOCATOR at $3800.1 
61 Load the TSC TEXT PROCESSING SYSTEM 

7> Change the exit address oF the processor (location $020R1 
to $32E6. 

81 Begin execution at $2QQ0 See the LPR program For 
instructions on use and on adapting to a system larger than 
16K. 

91 See next, page For Relocator address inFormation. 
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RELOCATING THE EDITOP-LPR PAIR.: 

b&v s^>- 

BEGIN ADDRESS: 0200 

END ADDRESS: _150O" IW*- 
MOVE TO: £000 


DATA BLOCKS? V 
BEG ADDR; 0212 
END ADDR: 03541 


044C Vjp'SSH 
044D 





0458 

045E 

0464 

0470 

0476 

0482 

0946 

0955 

0982 

0988 

0R31 

0A47 

0BF2 

0C07 

0C77 

0C86 

0D7F 

0DCA 

0FCR 

0FD3 

10B4 

10CF 

1241 

125B 


.1491T 
.1480- 

14E5T 

lsee- 
150ci" 


ALTER RANGE? V 

BEGIN ADDRESS: 

01FF 

END ADDRESS 

isoe )qq 

FIX FDB'S? V 

ADDRESS. 021B 

02CE 

021F 

02D2 

0228 

02D9 

022C 

02E4 

0235 

02ER 

023C 

02F4 

0241 

02F8 

0245 

02FF 

024E 

0305 

0252 

0300 

025B. 

0310 

0261 

0316 

0268 

031C 

026C 

0320 

0272 

0329 

027B 

032D- 

027F- 

0335 

0288 

0339 

028C 

033D 

0292 

0344 

0299 

0348 

029E 

0949 

02R5 

094F 

02RF 

0953 

0284. 

1245 

02B8 

124C- 

02C2 

1252 

02C6- 

1259 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

«♦< 


TSC TEXT EDITOR-PROCESSOR CORESIDENT LINK <LPR) 

COPYRIGHT <C> 1977 BY 

TECHNICAL SYSTEMS CONSULTANTS/ INC. 

P. 0. BOX £574; W. LAFAYETTE/ IN 47906 
<317) 742-7589 

THE PURPOSE OF THIS PROGRAM IS TO SETUP THE NECESSARY 
POINTERS IN THE TSC TEXT PROCESSOR AND TO SAVE CERTAIN 
POINTERS OF THE TSC EDITOR TO ALLOW THEM TO RUN CO¬ 
RESIDENT. THE ONLY CHANGE REQUIRED IN THE PROCESSOR I 
TO SET THE EXIT ADDRESS CSETUP AT $020A> TO $32E6/ 
WHICH IS THE ADDRESS OF •'EDITOR'' IN 'LPR'. WHEN IN 
THE EDITOR AND READY TO PROCESS YOUR FILE/ TYPE 'LPR' 
FOR 'LINK PROCESSOR'. WHEN THE PROCESSING OF THE FILE 
IS COMPLETE/ CONTROL WILL RETURN TO THE EDITOR. USING 
LPR DELETES THE LOG COMMAND FROM THE EDITOR. YOU MAY 
STILL USE 'STOP' TO EXIT. THIS PROGRAM IS SETUP FOR A 
16K SYSTEM. IF YOU HAVE A LARGER SYSTEM/ CHANGE MEMEN 
IN THE EDITOR <*0212 BEFORE RELOCATION; #2012 AFTER). 


* CHANGES TO EDITOR 


8212 



ORG 

$0212 

0212 

3F 

FF 

FDB 

$3FFF 

028E 



ORG 

$0£8E 

028E 

4C 


FCC 

'LPR' 

028F 

50 

52 



0291 

00 


FCB 

0 

0292 

14 

BD 

FDB 

LPR 

0338 



ORG 

$0358 

0358 

CE 

15 0C 

LDX 

#BEGPT2 


SET MEMORY END 


tyFr F 


PUT LPR IN COMMRND TABLE 


SETUP NEW BEGIN PTR 


* EXTERNAL EQUATES 


1491 


ORG 

$1491 r 

0200 

PROCSS 

EQU 

$0200 Je 

009D 

JNKCNT 

EQU 

$009D 

08A8 

TSTEMP 

EQU 

$0SA8—> £ fA/18 

005E 

20NE1 

EQU 

$005E 

0060 

20NE2 

EQU 

$0060 

006A 

NUMFLG 

EQU 

$006A 

008F 

IN2FLG 

EQU 

$00SF 

00BB 

BUFFER 

EQU 

$00BB 

0058 

SPCPT1 

EQU 

$0058 

0096 

HEDCNT 

EQU 

$0096 

0040 

TEMP 

EQU 

$0040 , 

0C62 

MAKSP5 

EQU 

$0C62—> ^ rtbl- 

0203 

RESTRT 

EQU 

$0203 
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* TEMPORARY STORAGE 


A491 




ZONE1X 

RMB 


1_ 


1493 




Z0NE2X 

RMB 


2 


1495 




NMFG2 

RMB 


2 


1497 




TMPEND 

RMB 


37 


14BC 




TMPBEG 

RMB 


1 






♦ ENTRY 

POINT l 

JPON EXITING THE EDITOR 






ORG- 

$ 

5 2 .000 


14BD 

BD 

08 

R8 

LPR 

JSR 


TSTEMP 

IS FILE EMPTY? 

14C0 

86 

03 



LDR 

fl 

#3 

SET LINE BYTE COUNT 

14C2 

97 

9D 



STR 

fi 

JNKCNT 


14C4 

CE 

00 

BB 


LDX 


♦♦BUFFER 

SAVE EDITOR DATA 

14C7 

DF 

58 



STX 


SPCPT1 


14C9 

CE 

00 

96 


LDX 


#HEDCHT 


14CC 

DF 

40 



STX 


TEMP 


14CE 

CE 

14 

BC 


LDX 


♦♦TMPBEG 


14D1 

BD 

0C 

62 


JSR 


MRKSP5 


14D4 

DE 

5E 



LDX 


20NE1 

SAVE ZONE1 

14D6 

FF 

14 

91 


STX 


ZONEIX 


14D9 

DE 

60 



LDX 


Z0NE2 

SAVE ZONES 

14DB 

FF 

14 

93 


STX 


Z0NF.2X 

! 

14DE 

DE 

6R 



LDX 


NUMFLG 

SAVE NUMBER t- VERIFY 

14E0 

FF 

14 

95 


STX 


NMFG2 


14E3 

7E 

02 

00 


JMP 


PROCSS 

JUMP TO THE PROCESSOR 





♦ REENTRY POINT ON EXIT 

FROM ASSEMBLER 

14E6 

4F 



EDITOR 

CLR 

R 


CLEAR FLAG 

14E7 

97 

8F 



STR 

R 

INZFLG 


14E9 

CE 

14 

BC 


LDX 


♦♦TMPBEG 

RESTORE EDITOR DATA 

14EC 

DF 

58 



STX 


SPCPT1 


14EE 

CE 

14 

97 


LDX 


♦♦TMPEND 

r 

. 14F1 

DF 

40 



STX 


TEMP 


14F3 

CE 

00 

BB 


LDX 


♦♦BUFFER 


14F6 

BD 

0C 

62 


JSR 


MAKSP5 


14F9 

FE 

14 

91 


LDX 


ZONEIX 

RESTORE ZONE1 

14FC 

DF 

5E 



STX 


ZONE1 


i 14FE 

FE 

14 

93 


LDX 


Z0NE2X 

RESTORE Z0NE2 

1501 

DF 

60 


• 

STX 


20NE2 


1503 

FE 

14 

95 


LDX 


NMFG2 

RESTORE NUMBER & VERIFY 

1506 

DF 

6A 



STX 


NUMFLG 


1508 

7E 

02 

03 

RSTART 

JMP 


RESTRT 

JUMP INTO EDITOR 










150B 

0D 




FCB 


SOD 


150C 




BEGPT2 

EQU 



START OF PILESPACE 


END 

NO ERROR<S) DETECTED 










LPR 
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SVMBOL TRBLE: 


BECPT2 

150C 

BUFFER 

00BB 

EDITOR 

JNKCNT 

009D 

LPR 

14BD 

MRKSP5 

PROCSS 

0200 

RESTRT 

0203 

RSTRRT 

TMPBEG 

14BC 

IMPEND 

1497 

TSTEMP 

Z0NE2 

0060 

Z0NE2X 

1493 



14E6 

HEDCNT 

0096 

INZFLG 

008F 

0C62 

NMFG2 

1495 

NUMFLG 

006R 

1508 

SPCPT1 

0058 

TEMP 

0040 

08R8 

ZONE1 

005E 

ZONE1X 

1491 



OBJECT CODE: 


SI 03 0212^ 3F FF R8 
SI 09 028E 4C 50 52 
SI 06 0358 CE 15 0C 
SI 13 14BD BD 08 R8 
SI 13 14CD 40 CE 14 
SI 13 14DD 93 DE 6R 
SI 13 14ED 58 CE 14 
SI 12 14FD 5E FE 14 
S9 


00 14 BD R7 
RF 

86 03 97 9D CE 00 BB 
BC BD 0C 62 DE 5E FF 
FF 14 95 7E 82 00 4F 
97 DF 40 CE 00 BB BD 
93 DF 60 FE 14 95 DF 


DF 58 CE 00 96 DF EE 
14 91 DE 60 FF 14 D1 
97 8F CE 14 BC DF 06 
0C 62 FE 14 91 DF C5 
6fl 7E 02 03 0D lfl 









TSC TEXT PROCESSOR USER'S MflNURL 

VERSION 2. 3 





Lis-ting 
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* 

* 

* TSC 6800 TEXT PROCESSING SYSTEM 

* 

* 

* COPYRIGHT 1977 BY 

♦ 

* TECHNICRL SYSTEMS CONSULTANTS, INC. 
nnv pe%7 d 

* WEST LAFAYETTE/ IN 47906 

* 

0040 - ORG $0040 


* TEMPORARY STORAGE 

* NUMBER REGISTERS 


0040 


NMREGS 

RMB 

2 

A-B 

0042 


COLCNT 

RMB 

1 

C 

0043 


DAY 

RMB 

1 

D 

0044 



RMB 

2 

E-F 

0046 


GCNT 

RMB 

1 

G 

0047 



RMB 

1 

H 

0048 


IND 

RMB 

1 

I 

0049 



RMB 

2 

J-K 

004B 


LLN 

RMB 

1 

L 

004C 


MNTH 

RMB 

1 

M 

004D 


LINCNT 

RMB 

1 

N 

004E 


LFM 

RMB 

1 

0 

004F 


PGL 

RMB 

1 

P 

0050 



RMB 

5 

Q-U 

0055 


LDIV 

RMB 

1 

V 

0056 



RMB 

2 

W-X 

0058 


YEAR 

RMB 

1 

Y 

0059 



RMB 

1 

2 


* SINGLE STORAGE 


005A 

GDNUM 

RMB 

1 

005B 

ADD 

RMB 

1 

005C 

SUB 

RMB 

1 

005D 

BNUM 

RMB 

1 

005E 

NPGN 

RMB 

1 

005F 

INC 

RMB 

1 


* MACRO 

SAVE 

BLOCK 

0060 

NUMPNT 

RMB 

2 

0062 

EXCHR 

RMB 

1 

0063 

LSTNUM 

RMB 

2 








I 
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v 


0063 

CMFLG 

RMB 

t. 

0066 

MBFLG 

RUB 

• I 

006? 

MBFPNT 

RMB 

;> 

0069 

NOCR 

RMB 

•« 

006R 

OONE 

RMB 


006B 

FLBF 

RMB 


006C 

RTFLG 

RMB 

.1 


♦ MORE 

SINGLE 

sn 

0060 

LEFT 

RMB 

• • 

006E 

TFILF 

RMB 


006F 

NOFL 

RMB 


0070 

INNUM 

RMB 


0071 

NEG 

RMB 

A 

0072 

SIGN 

RMB 


0073 

NSP 

RMB 

2. 

0074 

PGN 

RMB 

Urn 

0075 

PRSCHR 

RMB 

r' 

0076 

SPSPF 

RMB 

1 

0077 

OOCRP 

RMB , 

4 

• • 

0078 

OOCM 

RMB 

A 

0079 

NOOUT 

RMB 

••• 

007A 

TOUTL 

RMB 

r 

•i. 

007B 

PTFL 

RMB 

A 

007C 

SIN 

RMB 

A 

4*4 

007D 

MINOIS 

RMB 

4 

007E 

EV 

RMB 

4' 

007F 

NOEXP 

RMB 

r 

»• 

0080 

NXTTRB 

RMB 

2 

0082 

TRBFLG 

RMB 

A 

0083 

C0LCN2 

RMB 

w 

0084 

IN02 

RMB 


0085 

NXTTRP 

RMB 

2 

0087 

SVOSPC 

RMB 


0088 

FINMRC 

RMB 


0089 

NEGT 

RMB 


008R 

IFFLG 

RMB 


008B 

MRCCNT 

RMB 

** 

008C 

PRSFLG 

RMB 


0080 

NONUMS 

RMB 

•! 

■ to 

008E 

OWFLG 

RMB 

X 

008F 

DFMFLG 

RMB 


0090 

SPIFLG 

RMB 

-m 

0091 

OIVFLG 

RMB 

.i 

• 4m 

0092 

0IVFL2 

RMB 

4 

0093 

PRNTR 

RMB 

. t 

■ 4» 

0094 

TLPP 

RMB 

' w 

0095 

LOWPG 

RMB 

:L 

0096 

HIPG 

RMB 

l 

0097 

FSTRRM 

RMB 

2 

0099 

LSTRRM 

RMB 

a 

009B 

NXTRRM 

RMB 

a 


FILE POINTERS 
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009D 

JNKCNT 

RMB 

1 JUNK COUNT 

009E 

SBFLG 

RMB 

1 

009F 

LLN2 

RMB 

1 

00R0 

MRCNRM 

RMB 

2 

00R2 

MACTMP 

RMB 

2 

00R4 

LSTAVL 

RMB 

2 

00R6 

FSTRVL 

RMB 

2 

00R8 

STPOUT 

RMB 

2 

00RR 

TCPNT 

RMB 

2 

00RC 

NXTMAC 

RMB 

2 

00RE 

NXTOUT 

RMB 

2 

00B0 

XMRC 

RMB 

2 

00B2 

TSIN 

RMB 

1 

00B3 

TIND 

RMB 

1 

00B4 

TLLN 

RMB 

1 

00B5 

SUPL 

RMB 

1 

00B6 

SWRDF 

RMB 

1 

00B7 

CAP 

RMB 

1 

00B8 

SCRP 

RMB 

1 

00B9 

TPOS 

RMB 

1 

00BR 

DELIM 

RMB 

1 

00BB 

TCNT 

RMB 

1 

00BC 

MCNT 

RMB 

1 

00BD 

TTLPNT 

RMB 

2 

00BF 

ENDLIH 

RMB 

1 

00C0 

TAB 

RMB 

1 

00C1 

TFILL 

RMB 

I 


* ENVIRONMENT 

PARAMETERS 

00C2 

AUTO 

RMB 

2 

00C4 

ROM 

RMB 

2 

00C6 

WIDTH 

RMB 

2 

00C8 

FILFLG 

RMB 

2 

00CR 

PFLG 

RMB 

2 

00CC 

PCHAR 

RMB 

2 

00CE 

CNJ 

RMB 

2 

00D0 

RTJ 

RMB 

2 

00D2 

MSC 

RMB 

£ 

00D4 

CNTFLG 

RMB 

2 

00D6 

JUST 

RMB 

2 

00D8 

TLN 

RMB 

2 

00DR 

BUFPNT 

RMB 

4 

00DE 

BUFEND 

RMB 

4 

0OE2 

EBFEND 

RMB 

4 

00E6 

CMNPNT 

RMB 

£ 

00E8 

SPCPT1 

RMB 

2 

00ER 

SPCPT2 

RMB 

2 

00EC 

TEMP 

RMB 

2 

00EE 

TEMP2 

RME 

2 

00F0 

TEMP5 

RMB 

2 

00F2 

TEMP6 

RMB 

£ 
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024C 

96 

70 



I.Dfl 

fl 

::nnum 

024E 

97 

43 



ST FI 

fl 

AAV 

0250 

BD 

12 

1R 


./SIC 


CHKNIJM 

0253 

24 

(34 



IJCC: 


intros 

0255 

96 

70 



I.Dfl 

fl 

::nnijm 

0257 

97 

58 



STFl 

fl 

"EAR 

0259 

CE 

15 

2C 

INTR03 

I.DX 


"PRQU 

025C 

BD 

14 

90 


tsf: 


pstrnc; 

025F 

BD 

02 

06 


jsi*: 


INCH 

0262 

81 

50 



OMP 

fl 

ii'P 

0264 

26 

04 



ONE 


::ntro4 

0266 

97 

93 



STFl 

fl 

I'RNTR 

0268 

20 

15 



BRfl 


INTROS 

026R 

CE 

15 

66 

INTR04 

ld>: 


4LPPS“R 

026D 

BD 

14 

90 


.tsf: 


i’STRNG 

0270 

BD 

14 

44 


JSR 


GIBUF 

0273 

7C 

00 

65 


INC 


CMFLG 

0276 

BD 

12 

1R 


.TSF* 


OHKNUH 

0279 

24 

04 



IJCC 


INTROS 

027B 

96 

70 



I.Dfl 

II 

INNUM 

027D 

97 

94 



ST A 

II 

7LPP 

027F 

CE 

15 

4fl 

INTR05 

I.DX 


IPGSTR 

0282 

BD 

14 

90 


• fSR 


*>STRNG 

0285 

BD 

14 

44 


ISA 


IIBUF 

0288 

7C 

00 

65 


INC 


CMFLG 

028B 

BD 

12 

1R 


j sn 


OHKNUH 

028E 

24 

0D 



‘3CC 


INT.ROo 

0290 

96 

70 



I.Dfl 

H 

INNUM 

0292 

97 

95 



ST-1 

A 

;.OWPG 

0294 

BD 

12 

lfl 


ISA 


shknum 

0297 

24 

04 



SCO 


intros 

0299 

96 

70 



:.DM 

A 

INNUM 

029B 

97 

96 



ST A 

A 

IIPG 

029D 

BD 

14 

85 

INTR06 

rs.-i 


SRLr 

02R0 

4F 




SLR 

A 


02R1 

CE 

00 

5R 


i.DJ 


IGDNUII 

02R4 

3D 

06 



ASA 


CLRSPA 

02R6 

20 

18 



1 JRrl 


INIT 





* CLEAR 

•EMPORAiJV SPACE 

02R8 

4F 



CLRSPC 

CLF! 

A 


02R9 

CE 

00 

40 


i.d: : 


ANMREAS 

02RC 

R7 

00 


CLRSP2 

ATM 

A 

11, X 

02RE 

08 




INN 



02RF 

30 

00 

93 


CPX 


APRNTIJ 

02B2 

26 

F8 



BNE 


CLRSPP. 

02B4 

CE 

00 

9E 


LDX 


ASBFH5 

02B7 

A? 

00 


CLRSP4 

ST A 

fl 

11, X 

02B9 

08 




INN 



02BR 

30 

00 

DR 


CPX 


ABUFPIIT 

02BD 

26 

FA 



ONE 


CLRSP4 

02BF 

39 




ATS 




GET 4 SAVE 
CHECK FOR VEAR 
lil-T ,i SRVE 
PROMPT FOR PRINTER 
GE** RESPONSE 

SE T PRINTER FLAG 
LINES PER SCREEN? 
1ST RESPONSE 
CHECK IF NUMBER 

jET and save 

PRMPT FOR PAGES 
•SET RESPONSE 
CHECK NUMBER 
SET RND SRVE 

:hec< high page 

SET IT 
) JT :r t L- 
Si.EAi? SPACE 
SO INITIALIZE 

% 

:>E" POINTER 
CLEAR SPACE 
I JUMP POINTER 
FINISHED? 

I>0 SECOND BLOCK 


RETURN 
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02C0 CE 01 10 
02C3 4F 
02C4 R7 00 
02C6 08 
02C7 8C 01 25 
02CA 26 F8 
02CC 4C 
02CD 97 D6 
02CF 97 D7 
02D1 97 8F 
02D3 97 FC 
02D5 97 C8 
02D7 97 C9 
02D9 97 4D 
02DB 97 42 
02DD 97 83 
02DF 97 74 
02E1 86 41 
02E3 97 C6 
02E5 97 C7 
02E7 97 4B 
02E9 97 9F 
02EB 97 D8 ' 

02ED 97 D9 
02EF 40 
02F0 97 4F 
02F2 CE 19 F4 
02F5 DF AC 
02F7 DF A6 
02F9 86 FF 
02FB A7 00 INIT3 

02FD 08 
02FE 8C IF F2 
0301 26 F8 
0303 DF R4 
0305 09 
0306 6F 00 
0308 6F 01 
030R 6F 02 
030C 86 0D 
030E B7 18 0fl 
0311 86 R0 
0313 97 Cl 
0315 CE 17 D8 
0318 86 FF 

931R R7 00 INIT4 

031C 08 

031D 8C 18 08 

0320 26 F8 

0322 BD 02 0C 

0325 CE 15 E4 


LDX 


#TABS 

CLR 

A 


STA 

INX 

A 

0, X 

CPX 


#NUM 

BNE 


INIT25 

INC 

A 


STA 

A 

JUST 

STA 

A 

JUST+1 

STA 

A 

ENDLIN 

STA 

A 

CRF 

STA 

A 

FILFLG 

STA 

A 

FILFLG+1 

STA 

A 

LINCNT 

STA 

A 

COLCNT 

STA 

A 

C0LCN2 

STA 

A 

PGN 

LDA 

A 

#65 

STA 

A 

WIDTH 

STA 

A 

WIDTH+1 

STA 

A 

LLN 

STA 

A 

LLN2 

STA 

A 

TLN 

STA 

A 

TLN+1 

INC 

A 


STA 

A 

PGL 

LDX 


#MACROS 

STX 


NXTMAC 

STX 


FSTAVL 

LDA 

A 

#$FF 

STA 

INX 

A 

0, X 

CPX 


#LMRCRO 

BNE 


INIT3 

STX 

DEX 


LSTAVL 

CLR 


0, X 

CLR 


1, X 

CLR 


2/ X 

LDA 

A 

#$D 

STA 

A 

CMNDBF 

LDA 

A 

#$A0 

STA 

R 

TFILL 

LDX 


#TRAPS 

LDA 

A 

#*FF 

STA 

INX 

A 

0, X 

CPX 


#TRPEND 

BNE 


INIT 4 

JSR 


PINIT 

LDX 


#LINBUF 


SET POINTER 
CLEAR TABS 

FINISHED? 

SET INITIAL PARAMS. 

MARK END LINE 

SET FOR FILL 

INIT LINE COUNT 

SET COLUMN CNT 
SET PAGE 

SET PAGE WIDTH 

AND LINE LENGTH 

SET TITLE LENGTH 

SET PRGE LENGTH 
INIT MACRO SPACE 

FINISHED? 

SET END OF MACROS 

FIX BUFFER 
SET FILL CHAR. 

INIT TRAPS 

FINISHED? 

INIT PRINTER 


* INITIALIZATION AND SETUP 
INIT 
INIT25 
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00F4 

RETREG 

RMB 

2 

00F6 

INDEX 

RMB 

2 

00F8 

XTEMP 

RMB 

2 

00FA 

MACEND 

RMB 

2 

00FC 

CRF 

RMB 

1 

0110 


ORG 

*0110 

0110 

TABS 

RMB 

20 

0124 

TABEND 

RMB 

1 

0125 

NUM 

RMB 

12 

0200 


ORG 

*0200 


♦ 

* PROGRAM ENTRV POINT 

* 


V' 


^ , 


0200 

7E 

02 

12 

START 

JMP 


INTRO 





* JUMP 

TABLE 


0203 

7E 

El 

D1 

OUTCH 

JMP 


*E1D1 

0206 

7E 

El 

AC 

INCH 

JMP 


*E1AC 

0209 

7E 

E0 

D0 

MON 

JMP 


*E0D0 <*= 

020C 

7E 

15-A4- 

PINIT 

JMP 


PRNIT 

020F 

7E 4.5-C4 

POUCH 

JMP 


PROUCH 

01FF 




STACK 

EQU 


*01FF 





* MAIN 

PROGRAM 

STARTS HEi 

0212 

8E 

01 

FF 

INTRO 

LDS 


♦♦STACK 

0215 

DE 

97 



LDX 


FSTRAM 

0217 

DF 

9B 



STX 


NXTRAM 

0219 

BD 

02 

A8 

INTRO0 

JSR 


CLRSPC 

021C 

97 

95 



STA 

A 

LQWPG 

021E 

97 

93 



STA 

A 

PRNTR 

0220 

97 

94 



STA 

A 

TLPP 

0222 

4A 




DEC 

A 


0223 

97 

96 


F( 

STA 

A 

HIPG 

0225 

CE 

14 

-5A 

LDX 


♦♦CPRSTR 

0228 

BD 

14 

90 


JSR 


PSTRNG 

022B 




INX 



022C 

BO-14—90- 


JSR 


PSTRNG 

022F 

BD 

14 

85 


JSR 


CRLF 

0232 

CE 

15 

1A 


LDX 


#DATSTR 

0235 

BD 

14 

90 


JSR 


PSTRNG 

0238 

BD 

14 

44 


JSR 


GIBUF 

023B 

7C 

00 

65 


INC 


CMFLG 

023E 

BD 

12 

1A 


JSR 


CHKNUM 

0241 

24 

16 



BCC 


INTR03 

0243 

96 

70 



LDA 

A 

INNUM 

0245 

97 

4C 



STA 

A 

MNTH 

0247 

BD 

12 

1A 


JSR 


CHKNUM 

024A 

24 

0D 



BCC 


INTR03 


t£oG\ 

C/S / 

c i cz 


F^Vt 

PDC3 


#+# SETUP STACK +*+ 
POINT TO FIRST OF FILE 
SAVE IT 

GO CLEAR SPACE 
SET PAGE LIMITS 


OUTPUT MESSAGE 


OUTPUT CR AND 
PROMPT FOR DATE 

GET DATE 

CHECK IF VALID 


GET MONTH & SAVE 
CHECK FOR DAV 


"U 
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0328 

DF 

DB 



STX 


8UFPNT 

SET POINTER 

0328 

DF 

DC 



STX 


BUFPNT+2 


032C 

BD 

06 

46 


JSR 


FIXBFE 

FIX BUFFER END 

032F 

DE 

DE 



LDX 


BUFEND 


0331 

DF 

E0 



STX 


BUFEND+2 


0333 

CE 

16 

7F 


LDX 


ttEXTBUF 


0336 

DF 

E4 



STX 


EBFEND+2 


0338 

CE 

19 

72 


LDX 


#M8CTBL 

CLEAR MACRO TABLE 

033B 

DF 

F8 



STX 


M8CEND 






* MBIN 

PROCESS 

OR LOOP, 

. 

033D 

96 

74 


PROC 

LDfl 

8 

PGN 

CHECK PAGE NUMBER 

033F 

91 

95 



CMP 

8 

LOWPG 

AGAINST LOW PAGE 

0341 

24 

06 



BHS 


PR0C3 


0343 

C6 

0F 


PR0C2 

LD8 

B 

#$F 


0345 

D7 

79 



ST8 

B 

NOOUT 

SET NO OUTPUT FLRG 

0347 

20 

08 



BR8 


PUNTST 


0349 

91 

96 


PR0C3 

CMP 

8 

HIPG 

AGAINST HIGH PAGE 

034B 

23 

03 



8LS 


PR0C4 


034D 

7E 

09 

53 


JMP 


FINIS4 

IF PAST, FINISH 

0350 

7F 

00 

79 

PR0C4 

CLR 


NOOUT 






* TEST 

FOR PUNCTUATION 


0353 

96 - 

C8 


PUNTST 

LD8 

8 

PFLG 

TEST FLAG 

0355 

81 

03 



CMP 

8 

#3 


0357 

26 

07 



SNE 


PUNTS3 


0359 

96 

CC 



LD8 

8 

PCH8R 

GET SPARE CHAR. 

035B 

7F 

00 

CB 

PUNTS2 

CLR 


PFLG 

CLEAR PUNCT. FLRG 

035E 

20 

37 



8R8 


JSTFV 


0360 

BD 

06 

8C 

PUNTS3 

JSR 


GETCHR 

GET NEXT CHAR. 

0363 

D6 

68 



LD8 

B 

DONE 

FINISHED? 

0365 

27 

03 



9EQ 


PUNT35 


0367 

7E 

09 

51 


JMP 


FINISH 


0368 

D6 

C8 


PUNT35 

LD8 

B 

FILFLG 

FILL ON? 

036C 

27 

29 



3EQ 


JSTFV 


036E 

D6 

C8 



LD8 

B 

PFLG 

TEST PUNCT. FLAG 

0370 

Cl 

01 



CMP 

B 

#1 


0372 

22 

19 



BHI 


PUNTS7 


0374 

27 

11 



BEQ 


PUNTS6 


0376 

81 

2E 



CMP 

8 

4". 

IS CHAR A '. '? 

0378 

27 

08 



BEQ 


PUNTS4 


0378 

81 

21 



CMP 

8 

#' ! 

IS IT '!'? 

037C 

27 

04 



BEQ 


PUNTS4 


037E 

81 

3F 



CMP 

8 

#'? 

IS IT '?'? 

0380 

26 

03 



BNE 


PUNTS5 


0382 

7C 

00 

CB 

PUNTS4 

INC 


PFLG 

SET PUNCT. FLAG 

0385 

20 

10 


PUNTS5 

BR8 


JSTFV 


0387 

81 

20 


PUNTS6 

CMP 

8 

#$20 

IS CHAR SPACE? 

0389 

27 

F7 



BEQ 


PUNTS4 


038B 

20 

CE 



BR8 


PUNTS2 


038D 

81 

20 


PUNTS7 

CMP 

8 

#$20 

CHECK FOR SPACE 

038F 

27 

C8 



BEQ 


PUNTS2 







■ 
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0391 

97 

CC 



STR 

R 

PCHRR 

SAVE SPARE CHAR. 

0393 

86 

20 



LDR 

A 

#$20 

SET FOR SPACE 

0395 

20 

EB 



BRfl 


PUNTS4 






* JUSTIFICATION LOOP 


0397 

CE 

16 

7F 

JSTFV 

LDX 


#EXTBUF 

FIX EXTRA POINTERS 

03<>fl 

DF 

EE 



STX 


TEMP2 


03 *C 

DF 

E2 



STX 


EBFEND 


039E 

DE 

DR 



LDX 


BUFPNT 

GET BUFFER POINTER 

03A0 

81 

0D 



CMP 

R 

#$D 

IS CHAR, fl CR? 

03A2 

26 

14 



BNE 


JSTFV3 


03fl4 

D6 

08 



LDR 

B 

FILFLG 

FILL MODE? 

03A6 

26 

05 



BNE 


JSTFV2 


03ft8 

DF 

R8 


JSTFV1 

STX 


STPOUT 

MARK LAST BUF. POS. 

03AA 

7E 

05 

0B 


JMP 


OUTLIN 

OUTPUT LINE 

03AD 

86 

20 


JSTFV2 

LDR 

A 

#$20 

GET fl SPACE 

03RF 

R7 

00 


JSTF25 

STR 

R 

04 X 

SAVE IT 

03B1 

08 




INX 



BUMP POINTER 

03B2 

90 

DE 



CPX 


BUFEND 

END OF BUFFER? 

03B4 

26 

F9 



BNE 


JSTF25 


03B6 

20 

IE 



BRfl 


JSTFV6 


03B8 

R7 

00 


JSTFV3 

STR 

fl 

04 X 

SAVE CHARACTER 

03BR 

70 

00 

42 


INC 


COLCNT 

BUMP COLUMN COUNT 

03BD 

08 




INX 



BUMP POINTER 

03BE 

90 

DE 



CPX 


BUFEND 

END? 

03C0 

26 

06 



BNE 


JSTFV4 


03C2 

D6 

08 



LDR 

B 

FILFLG 

FILL MODE? 

03C4 

27 

02 



BEQ 


JSTFV4 


03C6 

20 

0E 



BRfl 


JSTFV6 


0308 

80 

16 

7F 

JSTFV4 

CPX 


#EXTBUF 

BUFFER OVERFLOW? 

03CB 

26 

04 



BNE 


JSTFV5 


03CD 

86 

0D 



LDR 

R 

#$D 

STUFF fl C. R. 

03CF 

20 

D7 



BRR 


JSTFV1 


03D1 

DF 

DR 


JSTFV5 

STX 


BUFPNT 

SAVE BUF POINTER 

03D3 

7E 

03 

3D 

JSTF55 

JMP 


PROC 

REPEAT LOOP 

03D6 

D6 

OR 


JSTFV6 

LDR 

B 

PFLG 

CHECK FLAG 

03D8 

Cl 

03 



CMP 

B 

#3 


03DR 

26 

04 



BNE 


JSTF63 


03DC 

96 

CC 



LDR 

R 

PCHRR 

GET CHARACTER 

03DE 

20 

0B 



BRR 


JSTF65 


03E0 

81 

20 


JSTF63 

CMP 

fl 

#$20 

IS CHAR = SPACE? 

03E2 

27 

4E 



BEQ 


RDJSPC 


03E4 

BD 

06 

80 


JSR 


GETCHR 

GET NEXT CHARACTER 

03E7 

81 

20 



CMP 

R 

#$20 

IS IT SPACE? 

03E9 

27 

47 



BEQ 


RDJSPC 


03EB 

36 



JSTF65 

PSH 

fl 


SAVE CHAR. 

03EC 

86 

20 



LDR 

fl 

#$20 


03EE 

DE 

DE 



LDX 


BUFEND 

GET TO END 

03F0 

09 



JSTFV7 

DEX 




03F1 

80 

15 

E3 


CPX 


#LINBUF-1 

LOOK FOR SPACES 

03F4 

27 

1C 



BEQ 


JSTFV9 


03F6 

fll 

00 



CMP 

fl 

04 X 


03F8 

26 

F6 



BNE 


JSTFV7 
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03FR 

08 



JSTFV8 

INX 



BUMP POINTER 

03FB 

9C 

DE 



CPX 


BUFEND 


03FD 

27 

13 



BEQ 


JSTFV9 


03FF 

R6 

00 



LDR 

R 

0> X 

PICK UP CHARACTER 

0401 

DF 

EC 



STX 


TEMP 

SAVE X 

0403 

DE 

EE 



LDX 


TEMP2 


0405 

R7 

00 



STR 

R 

0, X 

MOVE THE CHAR. 

0407 

08 




INX 




0403 

DF 

EE 


. 1 

STX 


TEMP2 


040fl 

DE 

EC 



LDX 


TEMP 

RESTORE X 

040C 

86 

20 



LDR 

R 

#$20 

SET WITH SPACE 

040E 

R7 

00 



STR 

fl 

0/ X 

SAVE IT 

0410 

20 

E8 



BRR 


JSTFV8 

REPEAT 

0412 

32 



JSTFV9 

PUL 

R 


RESTORE CHARACTER 

0413 

7F 

00 

82 


CLR 


TflBFLG 

CLEAR TABS 

0416 

CE 

01 

24 


LDX 


STRBEND 

POINT TO TABS 

0419 

DF 

80 



STX 


NXTTRB 

SET NEXT TAB 

041B 

DE 

EE 



LDX 


TEMP2 

RESTORE X 

041D 

R7 

00 


JSTF95 

STR 

fl 

0j X 

SAVE LAST CHAR. 

041F 

08 




INX 



BUMP POINTER 

0420 

DF 

E2 



STX 


EBFEND 

SET END 

0422 

81 

20 



CMP 

R 

#$20 

WAS CHAR fl SPACE? 

0424 

27 

0C 



BEQ 


RDJSPC 


0426 

8C 

16 

RC 


CPX 


4LINBU2 

BUFFER OVERFLOW? 

0429 

27 

07 



BEQ 


RDJSPC 


0428 

BD 

06 

8C 


JSR 


GETCHR 

GET NEXT CHAR. 

042E 

DE 

E2 



LDX 


EBFEND 

GET POINTER 

0430 

20 

EB 



BRR 


JSTFS5 






* ADJUST BUFFER FOR SPACES 

0432 

5F 



RDJSPC 

CLR 

B 


CLEAR COUNT 

0433 

CE 

15 

E4 


LDX 


#LINBUF 

POINT TO BUF BEGIN 

0436 

DF 

E8 



STX 


SPCPT1 


0438 

R6 

00 


RDJSP2 

LDR 

fl 

0, X 

LOOK FOR SPACES 

043R 

81 

20 



CMP 

fl 

#$20 


043C 

26 

09 



BNE 


RDJS35 


043E 

5C 




INC 

e 


INC THE COUNTER 

043F 

08 




INX 



BUMP POINTER 

0440 

9C 

DE 



CPX 


BUFEND 


0442 

26 

F4 



BNE 


RDJSP2 


0444 

7E 

05 

0B 

RDJSP3 

JMP 


OUTLIN 

OUTPUT LINE 

0447 

DF 

ER 


RDJS35 

STX 


SPCPT2 

SET END 

0449 

BD 

05 

B7 


JSR 


DELCHR 

DELETE INIT. SPACES 

044C 

CE 

15 

E4 

• 

LDX 


#LINBUF 

POINT TO BEGIN 

044F 

86 

20 



LDR 

R 

#$20 

CHECK MORE SPACES 

0451 

R1 

00 


RDJSP4 

CMP 

fl 

0, X 


0453 

27 

07 



BEQ 


RDJSP5 


0455 

08 




INX 



BUMP TIL FIND 

0456 

9C 

DE 



CPX 


BUFEND 

END OF. BUFFER? 

0458 

27 

10 



BEQ 


RDJSP6 


045A 

20 

F5 



BRR 


RDJSP4 

REPEAT 

045C 

08 



RDJSP5 

INX 



BUMP POINTER 

045D 

9C 

DE 



CPX 


BUFEND 

FINISHED? 
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045F 

26 

05 


BNE 


0DJS55 


0461 

7C 

80 B6 


INC 


SWRDF 

SET SINGLE WORD 

0464 

20 

04 


BRO 


0DJSP6 


0466 

fll 

00 

0DJS55 

CMP 

0 

0, X 

CHECK NEXT CHAR. 

0468 

27 

F2 


BEQ 


0DJSP5 


046ft 

D6 

D4 

0DJSP6 

.LDfl 

B 

CNTFLG 

CENTERING? 

046C 

27 

03 


BEQ 


0DJSP7 


046E 

7E 

06 19 


JMP 


CNTRIT 

GO CENTER LINE 

0471 

D6 

D6 

0DJSP7 

LDO 

B 

JUST 

JUSTIFICATION? 

0473 

27 

CF 


BEQ 


RDJSP3 


0473 

D6 

D0 


LDfl 

B 

RTJ 

RIGHT HAND? 

0477 

27 

03 


BEQ 


0DJSP8 


0479 

7E 

05 07 


JMP 


RIGHTJ 

GO DO RIGHT 

047C 

D6 

CE 

0DJSP8 

LDO 

B 

CNJ 

CENTER JUST. ? 

047E 

27 

03 


BEQ 


0DJSP9 


0480 

7E 

05 B2 


JMP 


CENTJ 

GO CENTER 

0483 

D6 

B6 

RDJSP9 

LDO 

B 

SWRDF 

CHECK SINGLE 

0485 

26 

BD 


BNE 


0DJSP3 


0487 

D6 

6B 


LDO 

B 

FLBF 

FLUSHING BUFFER? 

0489 

26 

B9 


BNE 


0DJSP3 


048B 

D6 

6D 


LDfl 

B 

LEFT 

WHICH SIDE 

048D 

27 

30 


BEQ 


RINS 

GO FROM RIGHT 




★ INSERT SPACES FROM LEFT 

048F 

CE 

15 E4 

LINS 

LDX 


#LINBUF 

SET POINTER 

0492 

DF 

EC 


STX 


TEMP . 

SAVE IT 

0494 

DE 

DE ' 

LINS2 

LDX 


BUFEND 

POINT TO END 

0496 

09 



DEX 



DEC THE POINTER 

0497 

ft6 

00 


LDO 

0 

0, X 

GET CHARACTER 

0499 

81 

20 


CMP 

0 

#$20 

IS IT ft SPACE? 

049B 

26 

07 


BNE 


0DJSP3 


049D 

DE 

EC 


LDX 


TEMP 

RESTORE POINTER 

049F 

06 

00 

LINS3 

LDO 

0 

0t X 

GET CHAR 

0401 

81 

20 


CMP 

0 

#$20 

IS IT SPACE? 

04fl3 

27 

07 


BEQ 


LINS4 


04R5 

08 



INX 



BUMP POINTER 

04R6 

9C 

DE 


CPX 


BUFEND 

END OF BUFFER 

0408 

27 

E5 


BEQ 


LINS 


04ftft 

20 

F3 


BRO 


LINS3 

REPEAT 

04RC 

06 

01 

LINS4 

LDO 

B 

#1 

SET COUNT = 1 

04RE 

BD 

05 DD 


JSR 


INSSPC 

GO INSERT SPACE 

04B1 

D6 

CE 


LDO 

B 

CNJ 

CENTER JUST? 

04B3 

27 

01 


BEQ 


LINS5 


04B5 

39 



RTS 



RETURN 

04B6 

DE 

EC 

LINS5 

LDX 


TEMP 

RESTORE POINTER 

04B8 

06 

00 

LINS6 

LDO 

0 

0, X 

GET CHARACTER 

04BO 

81 

20 


CMP 

0 

#$20 

IS IT SPACE? 

04BC 

26 

07 


BNE 


LINS7 


04BE 

08 



INX 



BUMP POINTER 

04BF 

9C 

DE 


CPX 


BUFEND 

END OF BUFFER? 

04C1 

27 

CC 


BEQ 


LINS 


04C3 

20 

F3 


BRO 


LINS6 


0405 

DF 

EC 

LINS7 

STX 


TEMP 

SOVE X 
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04C7 

20 

CB 



BRA 


LIN32 

REPEAT 





+ INSERT SPACES FROM FZ 

:CHT SIDE 

04C9 

DE 

DE 


PINS 

LDX 


BUFEND 

SET POINTER 

04CB 

86 

20 



LDA 

A 

#$20 

SET UP SPACE 

04CD 

09 



RINS2 

DEX 




04CE 

A1 

00 



CMP 

A 

0, X 

IS CHAR A SPACE? 

04D0 

27 

FB 



BEQ 


RINSE 


04D2 

DF 

EC 



3TX 


TEMP 

SAVE POINTER 

04D4 

DE 

DE 


RINS3 

LDX 


BUFEND 

CO TO END 

04D6 

09 




DEX 




04D7 

A6 

00 



LDA 

A 

0, X 

CET CHAR. 

04D9 

81 

20 



CMP 

A 

4*20 

IS IT SPACE? 

04DB 

26 

2E 



BNE 


QUTLIN 


04DD 

DE 

EC 



LDX 


TEMP 

RESTORE X 

04DF 

A6 

00 


RINS4 

LDA 

A 

0j X 

CET CHAR 

04E1 

81 

20 



CMP 

A 

#$20 

IS IT SPACE? 

04E3 

27 

08 



BEQ 


RINS5 


04E5 

09 




DEX 



DEC THE POINTER 

04E6 

8C 

15 

E3 


CPX 


#LINBUF- 

1 FINISHED? 

04E9 

27 

DE 



BEQ 


RINS 


04EB 

28 

F2 



BRA 


RINS4 

REPEAT 

04ED 

C6 

01 


RINS5 

LDA 

B 

*1 

SET COUNT = 1 

04EF 

BD 

05 

DD 


;sr 


INSSPC 

INSERT SPACE 

04F2 

D6 

CE 

• 


-DR 

B 

CNJ 

CENTER JUST? 

04F4 

27 

01 



BEQ 


RINS6 


04F6 

39 




RTS 



RETURN 

04F7 

DE 

EC 


RINS6 

-_DX 


TEMP 

RESTORE POINTER 

04F9 

A6 

00 


RINS7 

-DA 

A 

0, X 

SET CHARACTER 

04FB 

81 

20 



CMP 

A 

#$20 

SPACE? 

04FD 

26 

08 



3NE 


RINS8 


04FF 

09 




DEX 




0500 

8C 

15 

E3 


CPX 


#LINBUF- 

1 -INI3HED? 

0503 

27 

C4 



9EQ 


PINS 


0505 

20 

F2 



SRA 


RINS7 

REPEAT 

0507 

DF 

EC 


RINS8 

STX 


TEMP 

SAVE POINTER 

0509 

20 

C9 



3RA 


RINS3 






♦ OUTPUT LINE 

FROM WORK 

BJFFER 

050B 

7F 

00 

B6 

QUTLIN i 

CLR 


SWRDF 

XR FLAG 

050E 

D6 

4E 



LDA 

B 

LFM 

-EFT MARGIN? 

0510 

7D 

00 

7B 


TST 


PTFL 

*|JT IN INDENT? 

0513 

26 

02 



BNE 


OUTLI1 


0515 

DB 

48 



ADD 

B 

IND 

SDJUST LEFT 

0517 

7F 

00 

7B 

OUTLI1 

CLR 


PTFL 


051A 

DB 

7C 



ADD 

B 

SIN 

ADD IN SINGLE IN. 

0510 

2B 

0C 



3MI 


0UTLI3 


051E 

27 

0R 



3EQ 


OUTLI3 

• 

0520 

86 

20 


OUTLIE 

LDA 

A 

#$20 

•SET UP SPACE 

0522 

37 




ASH 

B 



0523 

BD 

14 

9F 


JSR 


OUTCHR 

OUTPUT SPACE 

0526 

33 




PUL 

B 








TSC 6800 TEXT PROCESSOR 


TSC MNEMONIC ASSEMBLER PAGE 12 


0527 

5R 




DEC B 

0528 

26 

F6 



BNE 

052FI 

D6 

08 


0UTLI3 

LDfl B 

052C 

27 

11 



BEQ 

052E 

86 

20 



LDfl ft 

0530 

DE 

DE 



LDX 

0532 

80 

15 

E4 

0UTLI4 

CPX 

0535 

27 

19 



BEQ 

0537 

09 




DEX 

0538 

fll 

00 



CUP ft 

053ft 

27 

F6 



BEQ 

053C 

08 




INX 

053D 

DF 

fl8 



STX 

053F 

CE 

15 

E4 

0UTLI5 

LDX 

0542 

90 

R8 



CPX 

0544 

27 

0fl 



BEQ 

0546 

fl6 

00 


0UTL55 

LDfl ft 

0548 

BD 

14 

9F 


JSR 

054B 

08 




INX 

0540 

90 

R8 



CPX 

054E 

26 

F6 



BNE 

0550 

5F 



0UTLI6 

CLR B 

0551 

D7 

8E 



STfl B 

0553 

D7 

6F 



STfl B 

0555 

D7 

Oft 



STfl B 

0557 

D7 

73 



STfl B 

0559 

D7 

70 



STfl B 

055B 

73 

00 

6D 


COM 

055E 

CE 

15 

E4 


LDX 

0561 

DF 

Dfl 



STX 

0563 

CE 

01 

10 


LDX 

0566 

DF 

80 



STX 

0568 

BD 

14 

14 


JSR 

056B 

CE 

16 

7F 

0UTLX7 

LDX 

056E 

90 

E2 


0UTL75 

CPX 

0570 

27 

17 



BEQ 

0572 

R6 

00 



LDfl fl 

0574 

08 




INX 

0575 

DF 

EC 



STX 

0577 

DE 

Dfl 



LDX 

0579 

87 

00 



STfl fl 

057B 

08 




INX 

057C 

90 

DE 



CPX 

057E 

27 

09 



BEQ 

0580 

DF 

Dfl 



STX 

0582 

DE 

EC 



LDX 

0584 

70 

00 

42 


INC 

0587 

20 

E5 



BRA 

0589 

CE 

16 

7F 

0UTLI8 

LDX 

0580 

DF 

E2 



STX 

058E 

BD 

08 

99 


JSR 

0591 

96 

D2 



LDfl fl 

0593 

27 

0ft 



BEQ 

0595 

4ft 



0UTL32 

DEC fl 


0UTLI2 

DEC COUNT 

FILFLG 

0UTLI5 

FILL MODE? 

#*20 

SETUP SPACE 

BUFEND 

GO TO END 

#LINBUF 

0UTLI6 

EMPTV? 

DEC THE POINTER 

Qj X 

0UTLI4 

IS IT SPACE? 

BUMP POINTER 

STPOUT 

#LINBUF 

SET END 

STPOUT 

0UTLI6 

EMPTV? 

0, X 

GET CHARACTER 

OUTCHR 

OUTPUT IT 

BUMP POINTER 

STPOUT 

0UTL55 

DWFLG 

NOFL 

PFLG 

NSP 

SIN 

FINISHED? 

CLEAR FLAGS 

LEFT 

SWITCH SP. SIDES 

#LINBUF 

BUFPNT 

SET POINTER 

#TRBS 

NXTTflB 

SET TABS 

FIXWD 

#EXTBUF 

GO FIX WIDTH 

EBFEND 

0UTLI8 

CHECK FOR EXTRA? 

0, X 

TEMP 

GET CHARACTER 

BUFPNT 

0, X 

TRANSFER IT 

BUMP POINTER 

BUFEND 

CHECK END 

0UTLI8 

OVERFLOW! 

BUFPNT 

TEMP 

SAVE IT 

COLCNT 

BUMP COLUMN COUNT 

0UTL75 

REPEAT 

#EXTBUF 

FIX POINTER 

EBFEND 

• 

PCRLF 

OUTPUT CR & LF 

MSC 

0UTL85 

MULTIPLE SPACE? 


/ 
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0596 

27 

07 



BEQ 


0UTL85 


0598 

36 




PSH 

8 


OUTPUT EXTRA SPACE 

0599 

BD 

08 

99 


JSR 


PCRLF 


059C; 

32 




PUL 

R 



059D 

20 

F6 



BRA 


0UTL82 


059F 

96 

6B 


0UTL85 

LD8 

R 

FLBF 

FLUSHING? 

0581 

27 

01 



BEQ 


0UTLI9 


0583 

39 




RTS 




0584 

7E 

03 

3D 

0UTLI9 

JMP 


PROC 

GO PROCESS 





* RIGHT 

H8ND JUSTIFV 


0587 

BD 

06 

0B 

RIGHTJ 

JSR 


CNTSPC 

COUNT SPACES 

0588 

CE 

15 

E3 

RIGHTS 

LDX 


#LINBUF-1 


058D 

8D 

2E 



BSR 


INSSPC 

INSERT SPACES 

058F 

7E 

05 

0B 


JMF 


OUTLIN 

OUTPUT LINE 





* CENTER 

: JUS 

TIFV 


05B2 

8D 

57 


CENT J 

BSR 


CNTSPC 

COUNT SPACES 

05B4 

57 




8SR 

B 


DIVIDE BV 2 

05B5 

20 

F3 



BR8 


RIGHTS 






* DELETE 

: CH8R8CTERS 


05B7 

DE 

E8 

• 

DELCHR 

LDX 


SPCPT2 

GET POINTER 

05B9 

9C 

E8 



CPX 


SPCPT1 

EMPTV? 

05BB 

27 

IF 



BEQ 


DELCH4 


05BD 

9C 

DE 



CPX 


BUFEND 


05BF 

27 

0E 



BEQ 


DELCH3 


05C1 

86 

00 



LDfl 

8 

0, X 

GET CHARACTER 

05C3 

08 




INX 



BUMP THE POINTER 

05C4 

DF 

E8 



STX 


SPCPT2 

SAVE IT 

05C6 

DE 

E8 


• 

LDX 


SPCPT1 

RESTORE 

05C8 

87 

00 



STR 

fi 

0, X 

SAVE CHARACTER 

05CB 

08 




INX 



BUMP POINTER 

05CB 

DF 

E8 



STX 


SPCPT1 


05CD 

20 

E8 



BR8 


DELCHR 

REPEAT 

05CF 

DE 

E8 


DELCH3 

LDX 


SPCPT1 

GET POINTER 

05D1 

86 

20 



LDR 

R 

#*20 

SETUP SPACE 

05D3 

90 

DE 


DELC35 

CPX 


BUFEND 


05D5 

27 

05 

- 


BEQ 


DELCH4 


05D7 

87 

00 



STR 

fl 

0, X 

PUT IN SPACE 

05D9 

08 




INX 



BUMP POINTER 

05DR 

20 

F7 



BRR 


DELC35 


05DC 

39 



DELCH4 

RTS 








* INSERT SP8CES 


05DD 

5D 



INSSPC 

TST 

B 


TEST COUNT' 

05DE 

27 

28 



BEQ 


IN3SP5 

IF NONE/ RETURN 

05E0 

37 




PSH 

B 


SAVE COUNT 

05E1 

DF 

EC 



STX 


TEMP 

SAVE X 

05E3 

DE 

DE 



LDX 


BUFEND 

POINT TO END 









TSC 6888 TEXT PROCESSOR 


TSC MNEMONIC ASSEMBLER 


05E5 

DF 

E8 


STX 


SPCPT1 

05E? 

08 


INSSP2 

INX 



05E8 

5A 



DEC 

B 


05E9 

26 

FC 


BNE 


INSSP2 

05EB 

DF 

EA 


STX 


SPCPT2 

05ED 

DE 

E8 

INSSP3 

LDX 


SPCPT1 

05EF 

9C 

EC 


CPX 


TEMP 

05F1 

27 

0E 


BEQ 


INSSP4 

05F3 

A6 

00 


LDA 

A 

0, X 

05F5 

09 



DEX 



05F6 

DF 

E8 


STX 


SPCPT1 

05F8 

DE 

EA 


LDX 


SPCPT2 

05FA 

A7 

00 


STA 

A 

0, X 

05FC 

09 



DEX 



05FD 

DF 

EA 


STX 


SPCPT2 

05FF 

20 

EC 


BRA 


INSSP3 

0601 

33 


INSSP4 

PUL 

B 


0602 

86 

20 


LDA 

A 

#$20 

0604 

08 


INSS44 

INX 



0605 

A7 

00 


STA 

A 

0, X 

0607 

5A 



DEC 

B 


0608 

26 

FA 


BNE 


INSS44 

060A 

39 


INSSP5 

RTS 






★ COUNT 

SPACES 


060B 

5F 


CNTSPC 

CLR 

B 


060C 

86 

20 


LDA 

A 

#$20 

060E 

DE 

DE 


LDX 


BUFEND 

0610 

09 


CNTSP2 

DEX 



0611 

A1 

00 


CMP 

A 

0, X 

0613 

26 

03 


BNE 


CNTSP3 

0615 

5C 



INC 

B 


0616 

20 

F8 


BRA 


CNTSP2 

0618 

39 


CNTSP3 

RTS 






* CENTER LINE 


0619 

8D 

F0 

CNTRIT 

8SR 


CNTSPC 

061B 

96 

8E 


LDA 

A 

DWFLG 

061D 

27 

0E ' 


BEQ 


CNTRI4 

061F 

96 

C6 


LDA 

A 

WIDTH 

0621 

10 



SBA 



0622 

48 



ASL 

A 


0623 

91 

C6 


CMP 

A 

WIDTH 

0625 

22 

0C 


8HI 


CNTRI5 

0627 

16 



TAB 



0628 

96 

C6 

i 

LDA 

A 

WIDTH 

062A 

10 



SBA 



062B 

16 



TAB 



062C 

57 



ASR 

B 


062D 

57 


CNTRI4 

ASR 

B 


062E 

CE 

15 E3 


LDX 


#LINBUF 

0631 

8D 

AA 


BSR 


INSSPC 


SAVE 

DEC THE COUNT 

SAVE POINTER 

FINISHED? 

GET CHARACTER 
DEC THE POINTER 
SAVE IT 

PUT CHARACTER 


REPEAT 

RESTORE COUNT 
SETUP SPACE 
BUMP THE POINTER 
STUFF SPACE 
DEC THE COUNT 

RETURN 


CLEAR COUNT 
SETUP SPACE 
SET POINTER 

SPACE? 

BUMP THE COUNT 


GO COUNT SPACES 
DOUBLE WIDTH? 

GET WIDTH 

FIX FOR DOUBLE 


SAVE 

SUB FROM WIDTH 

DIVIDE BV TWO 

1 SET POINTER 
GO INSERT SPACE 
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ISC 6800 TEXT PROCESSOR 


0633 

7A 

00 

D4 CNTRI5 

DEC 


CNTFLG 

DEC CENTER COUNT 

0636 

26 

0B 


BNE 


CNTRI6 


0638 

4F 



CLR 

A 



0639 

97 

D4 


STA 

A 

CNTFLG 

CLEAR FLAG 

063B 

96 

6E 


LDA 

A 

TFILF 

GET TEMP FILL 

063D 

97 

C8 


STA 

A 

FILFLG 

SET FILL 

063F 

DE 

DE 


LDX 


BUFEND 

SET POINTER 

0641 

DF 

R8 


STX 


STPOUT 

SET END 

0643 

7E 

05 

0B CNTRI6 

JMP 


GUTLIN 

OUTPUT LINE 




* FIX BUFFER END POINTER 


0646 

C6 

05 

FIXBFE 

LDA 

B 

#5 

CHECK BUFFER POS. 

0648 

CE 

02 

25 

LDX 


#NUM+*100 

COMPARE WITH TEMP 

064B 

BD 

0B 

ED 

JSR 


SENV9 

CHECK IT 

064E 

81 -2tT 


CMP 

A 

#$2D 

OVERFLOW?? 

0650 

27 

03 


BEQ 


FIXBF4 


0652 

7E 

12 

5E 

JMP 


PRNU27 

FINISH PROCESS 

0655 

CE 

15 

E4 FIXBF4 

LDX 


#LIMBUF 

SET POINTER 

0658 

DF 

DE 


STX 


BUFEND 


065A 

96 

4B 


LDA 

A 

LLN 

GET LINE LENGTH 

065C 

90 

C6 


SUB 

A 

WIDTH 

CALC. COLUMN NUM. 

065E 

4C 



INC 

A 



065F 

97 

42 


STA 

A 

COLCNT 

SAVE COUNT 

0661 

5F 



CLR 

B 



0662 

96 

C6 ‘ 


LDA 

A 

WIDTH 

GET WIDTH 

0664 

9B 

DF 


ADD 

A 

BUFEND+1 

ADD TO BUFEND 

0666 

D9 

DE 


ADC 

B 

BUFEND 


0668 

97 

DF 


STA 

A 

BUFEND+1 

SAVE RESULT 

066A 

D7 

DE 


STA 

B 

BUFEND 


066C 

39 



RTS 



RETURN 


* RETURN FROM MRCRO 


066D 

7F 

00 

88 

RETMAC 

CLR 


FINMAC 

CLEAR FLAG 

0670 

32 




PUL 

A 


FIX STACK 

0671 

32 




PUL 

A 



0672 

32 




PUL 

A 



0673 

97 

D4 



STA 

A 

CNTFLG 

RESTORE FLAG 

0675 

CE 

00 

60 


LDX 


#NUMPNT 


0678 

32 



RETMA2 

PUL 

A 


RESTORE VALUES 

0679 

A7 

00 



STA 

A 

0, X 


067B 

08 




INX 




067C 

8C 

00 

6D 


CPX 


#LEFT 

FINISHED? 

067F 

26 

F7 



BNE 


RETMA2 


0681 

7A 

00 

8B 


DEC 


MACCNT 

DEC MACRO COUNTER 

0684 

96 

6C 



LDA 

A 

ATFLG 

DOING AT? 

0686 

27 

0B 



BEQ 


GETCH1 


0688 

39 




RTS 



RETURN 


* CLEAR 'ENDLIN' AND GET CHARACTER 

8689 7F 00 BF 


CLRGET CLR 


ENDLIN 
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* GET NEXT CHARACTER 


068C BD 14 71 GETCHR JSR 

068F 96 88 LOR R 

0691 26 DR BNE 

0693 96 62 GETCH1 LDR R 

0695 27 03 BEQ 

0697 7E 11 86 JMP 

069R 96 65 GETCH2 LDR fl 

069C 27 0D BEQ 

069E DE E6 GETC22 LDX 

06R0 R6 00 LDR fl 

06R2 81 0D CMP fl 

06R4 27 01 BEQ 

06A6 08 INX 

06R7 DF E6 GETC25 STX 

06R9 20 29 BRR 

06RB 96 9E GETCH3 LDR R 

06RD 26 EF BNE 

06RF 96 66 LDR R 

06B1 27 08 BEQ 

06B3 BD 0E E3 JSR 

06B6 26 1C BNE 

06B8 7E 0F 7D JMP 

06BB 96 90 GETCH4 LDR R 

06BD 27 85 BEQ 

06BF BD 02 06 JSR 

06C2 20 10 BRA 

06C4 96 8F GETCH5 LDR R 

06C6 9fl 69 ORB A 

06C8 26 07 BNE 

06CR 96 82 LDR R 

06CC 27 03 BEQ 

06CE 7E 0B 10 JMP 

06D1 BD 14 Bfl GETCH6 JSR 


TSTBRK 

TEST FOR BREAK 

FINMRC 

FINISH MACRO? 

RETMRC 

EXCHR 

GET EXTRA CHAR. 

GETCH2 

FTCHNM 

GET NUMBER 

CMFLG 

COMMAND? 

GETCH3 

CMNPNT 

SET POINTER 

0, X 

GET CHARACTER 

#*D 

C. R. ? 

GETC25 

CMNPNT 

BUMP THE POINTER 
SAVE IT 

FETCHR 

SBFLG 

SPECIAL BUFFER? 

GETC22 

MBFLG 

MACRO BUFFER? 

GETCH4 

INMRC 

GET CHARACTER 

FETCHR 

MCEND 

FINISH MACRO 

SPIFLG 

SPECIAL INPUT? 

GETCH5 

INCH 

GET CHRRRCTER 

FETCHR 

DFMFLG 

DEFINE MACRO? 

NOCR 

GETCH6 

TRBFLG 

TABS? 

GETCH6 

DOTRB 

GO DO TRB 

INCHR 

GET CHRRRCTER 


♦ FETCH RND CHECK CHARACTER 


06D4 81 lfl FETCHR CMP fl 

06D6 26 05 BNE 

06D8 97 6fl STR fl 

06DR 7E 09 51 JMP 

06DD 81 0D FETCH2 CMP R 

06DF 26 29 BNE 

06E1 7F 00 76 CLR 

06E4 D6 69 LDR B 

06E6 26 32 BNE 

06E8 D6 9E LDR B 

06ER 26 07 BNE 

06EC D6 BF LDR B 

06EE 27 03 BEQ 

06F0 BD 09 2fl JSR 

06F3 97 BF FETC22 STR fl 

06F5 7F 00 9E CLR 


#*lfl 

FETCH2 

END OF FILE? 

DONE 

FINISH 

SET FLAG 

#*D 

FETCH3 

C. R. ? 

SPSPF 

NOCR 

FETC35 

SPECIAL SPACE? 

SBFLG 

FETC22 

CHECK FLAG 

ENDLIN 

FETC22 

END OF LINE? 

FLUSHB 

FLUSH BUFFER 

ENDLIN 

SBFLG 

SET FLAGS 


€ 
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06F8 

06 

8F 



LD8 

B 

DFMFLG 

TEST 

06FR 

D8 

04 



0R8 

B 

CNTFLG 


06FC 

26 

08 



BNE 


FETC25 


06FE 

D6 

08 



LD8 

B 

FILFLG 

TEST FILL 

0700 

27 

04 



BEQ 


FETC25 


0702 

86 

20 



LD8 

8 

#<20 

SETUP SP8CE 

0704 

20 

19 



BR8 


FETC36 


0706 

86 

00 


FETC25 

LD8 

8 

#<D 

SETUP C. R. 

0708 

20 

15 



BR8 


FETC36 


0708 

D6 

8F 


FETCH3 

LD8 

B 

DFMFLG 

GET FL8G 

070C 

08 

80 



0R8 

B 

PflSFLG 


070E 

26 

08 



BNE 


FETC35 


0710 

06 

75 



LD8 

B 

F'RSCHR 

P8SS CHAR? 

0712 

27 

0F 



BEQ 


FETCH4 


0714 

81 

20 



CMP 

8 

#<20 

IS IT 8 SPACE? 

0716 

26 

02 



BNE 


FETC35 


0718 

88 

80 



0R8 

8 

#<80 

SET PRRITV 

071fl 

5F 



FETC35 

CLR 

B 


CLEAR FLRGS 

071B 

D7 

BF 



ST8 

B 

ENDLIN 


071D 

D7 

75 



ST8 

B 

PflSCHR 


071F 

7F 

00 

B7 

FETC36 

CLR 


C8P 


0722 

39 



FETC37 

RTS 



RETURN 

0723 

81 

IF 


FETCH4 

CMP 

8 

#<1F 

CHECK CHAR ^ 

0725 

22 

03 



BHI 


FETC45 

0727 

7E 

06 

80 


JMP 


GETCHR 

GO GET CHAR. 

0728 

06 

BF 


FETC45 

LD8 

B 

ENDLIN 

END OF LINE? 

0720 

27 

18 



BEQ 


FETCH5 


072E 

81 

2E 



CMP 

8 

#'. 

PERIOD? 

0730 

27 

06 



BEQ 


FETC47 


0732 

81 

38 



CMP 

8 

#': 

COLON? 

0734 

26 

05 



BNE 


FETC48 


0736 

97 

6F 



ST8 

8 

NOFL 

SET NO FLUSH 

0738 

7E 

07 

OF 

FETC47 

JMP 


C0M8ND 

00 COMMAND 

073B 

81 

20 


FETC48 

CMP 

8 

#<20 

SPACE? 

073D 

26 

09 



BNE 


FETCH5 


073F 

97 

76 



ST8 

8 

SPSPF 

SET FLAG 

0741 

BD 

09 

28 


JSR 


FLUSHB 

FLUSH BUFFER 

0744 

86 

80 


FETC49 

L08 

8 

#<R0 


0746 

20 

02 



BR8 


FETC35 


0748 

06 

76 


FETCH5 

LD8 

B 

SPSPF 

TEST FLAG 

0748 

27 

07 

- 


BEQ 


FETC55 


0740 

81 

20 



CMP 

8 

#<20 

IS IT SPACE? 

074E 

27 

F4 



BEQ 


FETC49 


0750 

7F 

00 

76 


CLR 


SPSPF 

CLEAR OUT 

0753 

06 

65 


FETC55 

L08 

B 

CMFLG 

COMMAND? 

0755 

08 

66 



0R8 

B 

MBFLG 


0757 

08 

80 



0R8 

B 

NONUMS 


0759 

08 

90 



0R8 

B 

SPIFLG 


075B 

D8 

9E 



0R8 

B 

SBFLG 


0750 

26 

1C 



BNE 


FETCH6 

• 

075F 

91 

00 



CMP 

8 

TRB 

CHECK IF TRB 

0761 

26 

18 



BNE 


FETCH6 


0763 

OE 

80 



LOX 


NXTTRB 

GET NEXT TRB 

0765 

06 

42 



LOR 

B 

COLCNT 

GET COUNT 
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8767 

6D 

00 


FETC57 

TST 


0, X 

1 CHECK 

0769 

27 

8F 



BEQ 


FETC35 


076B 

El 

00 



CMP 

B 

0/ X 

FINISHED? 

076D 

25 

03 



BLO 


FETC58 


076F 

08 




INX 



BUMP THE POINTER 

0770 

20 

F5 



BR8 


FETC57 


0772 

DF 

80 


FETC58 

STX 


NXTT8B 

SRVE POINTER 

0774 

96 

Cl 



LD8 

8 

TFILL 


0776 

97 

82 



ST8 

8 

T8BFLG 

SET FL8G 

0778 

7E 

07 

18 

FETC59 

JMP 


FETC35 


077B 

D6 

8D 


FETCH6 

LDR 

B 

NONUMS 

NUMBERS? 

077D 

26 

ID 



BNE 


FETCH7 


077F 

81 

23 



CMP 

8 

#'# 

POUND SIGN? 

0781 

27 

04 



BEQ 


FETC65 


0783 

81 

25 



CMP 

8 


PERCENT SIGN? 

0785 

26 

15 



BNE 


FETCH7 


0787 

D6 

69 


FETC65 

LD8 

B 

NOCR 

DO C. R. ? 

0789 

37 




PSH 

B 



0788 

97 

69 



ST8 

8 

NOCR 

S8VE V8LUES 

0780 

97 

7F 



ST8 

8 

NOEXP 


078E 

BD 

11 

9E 


JSR 


CLRNUM 

CLE8R NUMBER 

0791 

BO 

12 

88 


JSR 


PRNU32 

PROCESS NUMBER 

0794 

33 




PUL 

B 



0795 

D7 

69 



ST8 

B 

NOCR 

RESTORE V8LUES 

0797 

24 

DF 



BCC 


FETC59 


0799 

7E 

06' 

8C 


JMP 


GETCHR 

GET CH8R8CTER ^ 

079C 

81 

-l£ 

FETCH7 

CMP 

8 

tr S 

B8CK SL8SH? 

079E 

26 

05 



BNE 


FETC75 


0780 

97 

75 



ST8 

8 

P8SCHR 

SET P8SS CH8R. 

07R2 

7E 

06 

89 


JMP 


CLRGET 

GO GET IT 

0785 

81 

40 


FETC75 

CMP 

8 

#'0 

8T SIGN? 

0787 

27 

1C 



BEQ 


C8PIT 


0789 

81 

5E 



CMP 

8 

#$5E 

UP 8RR0W? 

078B 

27 

21 



BEQ 


SETC8P 


07RD 

D6 

B7 



LD8 

B 

C8P 

CHECK MODE 

078F 

D8 

B8 



0R8 

B 

SC8P 


07B1 

D8 

66 



0R8 

B 

MBFLG 


07B3 

26 

C3 



BNE 


FETC59 


07B5 

81 

41 



CMP 

8 

#'R 

CHECK IF LETTER 

07B7 

25 

BF 



BLO 


FETC59 


07B9 

81 

58 



CMP 

8 

#'2 


07BB 

22 

BB 



BHI 


FETC59 


07BD 

D6 

77 



LD8 

B 

D0C8P 

DO C8P? 

07BF 

27 

B7 



BEQ 


FETC59 


07C1 

8B 

20 



8DD 

8 

#$20 

FORCE TO LOWER 

07C3 

20 

B3 


FETCH8 

BR8 


FETC59 






* C8P : 

SINGLE LETTER 


07C5 

D6 

77 


C8PIT 

LD8 

B 

D0C8P 

CHECK MODE 

07C7 

27 

F8 



BEQ 


FETCH8 


07C9 

97 

B7 



ST8 

8 

C8P 

SET FL8G 

07CB 

7E 

06 

89 

C8PIT2 

JMP 


CLRGET 



I 








I % 
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* CAP STRING OF LETTERS 


07CE 

D6 

77 


SETCAP 

LDA 

B 

DOCAP 

CHECK MODE 

07D0 

27 

FI 



BEQ 


FETCH8 


07D2 

D6 

B8 



LDA 

B 

SCAP 

GET FLAG 

07D4 

27 

05 



BEQ 


SETCA2 


07D6 

7F 

00 

B8 


CLR 


SCAP 

CLEAR IT 

07D9 

20 

F0 



BRA 


CAPIT2 


07DB 

97 

B8 


SETCA2 

STA 

A 

SCAP 

SET FOR STRING 

07DD 

20 

EC 



BRA 


CAPIT2 






* COMMAND PROCESSOR 


07DF 

7F 

00 

BF 

COMAND 

CLR 


ENDLIN 

CLEAR FLAG 

07E2 

CE 

18 

09 


LDX 


#CMNDBF-1 

SET POINTER 

07E5 

08 



C0MAN2 

INX 



BUMP IT 

07E6 

7C 

00 

69 


INC 


NOCR 

SET NO C. R. 

07E9 

DF 

F2 



STX 


TEMP6 

SAVE POINTER 

07EB 

7C 

00 

8D 


INC 


NONUMS 


07EE 

BD 

06 

8C 


JSR 


GETCHR 

GET CHARACTER 

07F1 

DE 

F2 



LDX 


TEMP6 

RESTORE POINTER 

07F3 

7F 

00 

69 


CLR 


NOCR 

CLEAR FLAG 

07F6 

7F 

00 

8D 


CLR 


NONUMS 


07F9 

A7 

00 



STA 

A 

0> X 

PUT CHARACTER 

07FB 

81 

0D 



CMP 

A 

#*D 

WAS IT A C. R. ? 

07FD 

26 

E6 



BNE 


C0MAN2 


07FF 

7F 

00 

BF 


CLR 


ENDLIN 

RESET END LINE 

0802 

CE 

18 

0A 


LDX 


#CMNDBF 

SET POINTER 

0805 

A6 

00 


C0MAN3 

LDA 

A 

0, X 

GET CHARACTER 

0807 

08 




INX 



BUMP THE POINTER 

0808 

E6 

00 



LDA 

B 

0/ X 

GET NEXT CHAR 

080R 

08 




INX 



BUMP 

080B 

DF 

E6 



STX 


CMNPNT 

SAVE THE POINTER 

080D 

81 

5F 



CMP 

A 

#*5F 

LOWER CASE? 

080F 

23 

04 



BLS 


C0MAN4 


0811 

80 

20 



SUB 

A 

#*20 

SET TO UPPER 

0813 

C0 

20 



SUB 

B 

#*20 


0815 

CE 

09 

5C 

C0MAN4 

LDX 


#CMNDT 

POINT TO TABLE 

0818 

R1 

00 


C0MAN5 

CMP 

A 

0, X 

COMPARE FIRST 

081A 

26 

0C 



BNE 


C0MAN7 


081C 

El 

01 



CMP 

B 

1 * X 

COMPARE SECOND 

081E 

26 

08 



BNE 


COMAN7 


0820 

97 

65 



STA 

A 

CMFLG 

FOUND COMMAND 

0822 

EE 

02 



LDX 


£j X 

GET ADDRESS 

0824 

AD 

00 


C0MAN6 

JSR 


0, X 

GO DO IT 

0826 

20 

2F 



BRA 


FINCM 

FINISH COMMAND 

0828 

08 



C0MAN7 

INX 



BUMP POINTER 

0829 

08 




INX 




082A 

08 




INX 




082B 

08 




INX 



• 

082C 

8C 

0A 

3C 


CPX 


#TBLEND 

TABLE END? 

082F 

26 

E7 



BNE 


C0MRN5 


0831 

36 




PSH 

A 



0832 

96 

8B 



LDA 

A 

MACCNT 

TEST MACRO NUMBER 
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0834 81 0? 



CMP A 

#7 


0836 32 



PUL A 



0837 24 15 



BHS 

MACOVF 

OVERFLOW? 

0839 CE 19 

72 


LDX 

#MRCTBL 

POINT TO MACROS 

083C 9C FA 


C0MAN8 

CPX 

MACEND 

END? 

083E 27 17 



BEG) 

FINCM 


0840 A1 00 



CMP A 

0, X 

COMPARE FIRST 

0842 26 04 



BNE 

C0MAN9 


0844 El 01 



CMP B 

1/ X 

COMPARE SECOND 

0846 27 29 



BEQ 

CALMAC 


0848 08 


C0MAN9 

INX 


FIND NEXT ENTRV 

0849 08 



INX 



084A 08 



INX 



084B 08 



INX 



084C 20 EE 



BRA 

C0MAN8 




* MACRO 

OVERFLOW ERROR 


084E CE 15 

79 

MACOVF 

LDX 

#OVFSTR 

POINT TO STRING 

0851 BD 14 

90 


JSR 

PSTRNG 

OUTPUT IT 

0854 7E 02 

09 


JMP 

MON 




* FINISH COMMAND 


0857 96 8A 


FINCM 

LDA A 

IFFLG 

CHECK FOR IF 

0859 27 0rt 



BEQ 

FINCM1 


085B 4F 



CLR A 


CLEAR FLAGS 

085C 97 BF 



STA A 

ENDLIN 


085E 97 65 



STA A 

CMFLG 


0860 97 8A 



STA A 

IFFLG 


0862 7E 08 

05 


JMP 

C0MAN3 

GO DO COMMAND 

0865 7F 00 

6F 

FINCM1 

CLR 

NOFL 

CLEAR FLAGS 

0868 7F 00 

65 

FINCM2 

CLR 

CMFLG 


086B 7C 00 

BF 

FINCM4 

INC 

ENDLIN 

SET END LINE 

086E 7E 06 

8C 


JMP 

GETCHR 

GO GET CHARACTER 



* CALL 

MACRO 



0871 DF B0 


CALMAC 

STX 

XMAC 

SAVE POINTER 

0873 CE 00 

6C 


LDX 

ttATFLG 

POINT TO VALUES 

0876 A6 00 


CALMA2 

LDA A 

Qj X 

GET VALUE 

0878 36 



PSH A 


PUT ON STACK 

0879 6F 00 



CLR 

Qj X 

CLEAR IT 

087B 09 



DEX 



087C 8C 00 

5F 


CPX 

#INC 

FINISHED? 

087F 26 F5 



BNE 

CALMA2 


0881 96 D4 



LDA A 

CNTFLG 

SAVE CNT FLAG 

0883 36 



PSH A 



0884 7F 00 

D4 


CLR 

CNTFLG 


0887 7C 00 

8B 


INC 

MACCNT 

BUMP COUNTER 

088A DE B0 



LDX 

XMAC 

RESTORE COUNT 

088C 86 0F 



LDA A 

#*F 


088E 97 66 



STA A 

MBFLG 

SET FLAG 

0890 97 BF 



STA A 

ENDLIN 
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0892 

EE 

02 



LDX 


£j X 

GET 8DDRESS 

0894 

DF 

67 



STX 


MBFPNT 

S8VE RS POINTER 

0896 

7E 

03 

3D 


JMP 


PROC 

GO PROCESS 





* PRINT 

C. R. 


AND L. F. 


0899 

BD 

13 

ED 

PCRLF 

JSR 


PUSHX 

SAVE X 

089C 

06 

18 



LDR 

B 

#24 

SET COUNT 

089E 

CE 

15 

00 


LDX 


#FIXWD+$EC 

08fll 

BD 

08 

ED 


JSR 


SENV9 

CHECK RCTIVITV 

0884 

81 

28 



CMP 

8 

#$28 

OVERFLOW? 

0886 

26 

CE 



BNE 


C8LMR2 


0888 

8D 

07 


PCRLF2 

BSR 


SCRLF 

DO CR AND LF 

6888 

BD 

14 

71 


JSR 


TSTBRK 

BREAK? 

088D 

BD 

13 

FF 

PCRLF4 

JSR 


PULLX 

RESTORE X 

O8B0 

39 




RTS 



RETURN 





* SPECI8L CRRRI8GE RETURN LINE FEED 

08B1 

CE 

15 

43 

SCRLF 

LDX 


#CRLFST 

POINT TO STRING 

08B4 

86 

00 


SCRLF1 

LD8 

8 

2, X 

GET CHARACTER 

08B6 

81 

04 



CMP 

fl 

#4 

IS IT 4? 

08B8 

27 

06 



BEQ 


SCRLF3 


08B8 

BD 

14 

9F 


JSR 


OUTCHR 

OUTPUT CHAR. 

08BD 

08 




INX 



BUMP POINTER 

08BE 

20 

F4' 



BRR 


SCRLF1 


0800 

96 

79 


SCRLF3 

LDR 

8 

NOOUT 

DO OUTPUT? 

0802 

26 

18 



BNE 


SCRLF4 


0804 

96 

94 



LDR 

8 

TLPP 

LINES PER PAGE? 

0806 

27 

14 



BEQ 


SCRLF4 


0808 

70 

00 

78 


INC 


TOUTL 

BUMP LINE COUNT 

08CB 

91 

78 



CMP 

fl 

TOUTL 

MAX? 

08CD 

22 

0D 



BHI 


SCRLF4 


08CF 

7F 

00 

78 


CLR 


TOUTL 

CLEAR COUNT 

08D2 

BD 

02 

06 


JSR 


INCH 

WAIT FOR CHARACTER 

08D5 

81 

0D 



CMP 

fl 

#$D 

IS IT C. R. ? 

08D7 

26 

03 



BNE 


SCRLF4 


08D9 

7E 

02 

09 


JMP 


MON 

EXIT PROCESSOR 

08DC 

96 

91 


SCRLF4 

LDR 

fl 

DIVFLG 

DIVERTING? 

08DE 

26 

43 



BNE 


SCRLF9 


08E0 

70 

00 

4D 


INC 


LINCNT 

BUMP LINE COUNTER 

08E3 

96 

4D 


SCRLF5 

LDR 

fl 

LINCNT 


08E5 

CE 

17 

D8 


LDX 


#TR8PS 

POINT TO TRAPS 

08E8 

81 

00 


SCRL55 

CMP 

fl 

2, X 

LINE = TRAP? 

08E8 

27 

24 



BEQ 


SCRLF8 


08EC 

08 




INX 



GET TO NEXT 

08ED 

08 




INX 




08EE 

08 




INX 




08EF 

80 

18 

08 


CPX 


#TRPEND 

END? 

08F2 

26 

F4 



BNE 


SCRL55 

> 

08F4 

91 

4F 


SCRLF6 

CMP 

fl 

PGL 

BOTTOM OF PAGE? 

08F6 

23 

2B 



BLS 


SCRLF9 


08F8 

96 

5E 



LDR 

fl 

NPGN 

GET NEW PAGE NUM. 

08F8 

27 

07 



BEQ 


SCRLF7 
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08FC 

7F 

00 

5E 

08FF 

97 

74 


0901 

20 

03 


0903 

7C 

00 

74 

0906 

86 

01 


0908 

97 

4D 


090fl 

96 

B5 


090C 

26 

15 


090E 

20 

D3 


0910 

7C 

00 

6C 

0913 

96 

BF 


0915 

36 



0916 

A6 

01 


0918 

E6 

02 


091R 

BD 

08 

15 

091D 

7fl 

00 

6C 

0920 

32 



0921 

97 

BF 


0923 

39 




CLR 
STfl fl 
BRfl 

SCRLF? INC 

SCRL75 LDA A 
. STR fl 
LDR fl 
BNE 
BRfl 

SCRLF8 INC 

LDfl fl 
PSH fl 
LDfl fl 
LDfl B 

SCRL85 JSR 
DEC 
PUL fl 
STfl fl 

SCRLF9 RTS 


NPGN 

PGN 

SCRL75 

PGN 

#1 

LINCNT 

SUPL 

SCRLF9 

SCRLF5 

flTFLG 

ENDLIN 


1, X 

2, X 

C0MRN4 

flTFLG 

ENDLIN 


* BREAK FILLED BUFFER 


0924 86 01 
0926 91 4D 
0928 27 89 


BRflK LDfl fl #1 

CMP fl LINCNT 
BEQ SCRLF5 


* FLUSH WORK BUFFER 


092fl 

96 

6F 


FLUSHB 

LDfl 

fl 

NOFL 

092C 

26 

IF 



8NE 


FLUSH5 

092E 

86 

20 


FLUSH 

LDfl 

fl 

#$20 

0930 

DE 

Dfl 



LDX 


BUFPNT 

0932 

8C 

15 

E4 


CPX 


#LINBUF 

0935 

27 

16 



BEQ 


FLUSH5 

0937 

DF 

fl8 



STX 


STPOUT 

0939 

9C 

DE 


FLUSH2 

CPX 


BUFEND 

0938 

27 

05 



BEQ 


FLUSH3 

093D 

fl7 

00 



STfl 

fl 

0, X 

093F 

08 




INX 



0940 

20 

F7 



BRfl 


FLUSH2 

0942 

CE 

15 

E4 

FLUSH3 

LDX 


#LINBUF 

0945 

97 

6B 



STfl 

fl 

FLBF 

0947 

BD 

04 

32 


JSR 


ADJSPC 

094A 

7F 

00 

6B 


CLR 


FLBF 

094D 

7F 

00 

6F 

FLUSH5 

CLR 


NOFL 

0950 

39 




RTS 







* FINISH AND CLEAN UP 

0951 

8D 

D7 


FINISH 

BSR 


FLUSHB 

0953 

7C 

00 

B5 

FINIS4 

INC 


SUPL 


"6/ 


k -rti ut: 

0959 

7E 

02 

09 


JMP 


MON 


SET PAGE NUMBER 

BUMP BV ONE 
SET UP 1 
SET LINE COUNT 
CHECK FLAG 


BUMP FIT COUNT 
SAVE STATUS 


GET NAME 

GO PROCESS 
DEC COUNT 

RESTORE STATUS 
RETURN 



SETUP 1 

TEST LINE COUNT 


NO FLUSH? 

SET UP SPACE 
SET POINTER 
BEGINNING OF BUFFER? 

SET END 
END? 

SAVE CHARACTER 
BUMP POINTER 

POINT TO BUFFER 
SET FLAG 
ADJUST SPACE 

CLEAR FLAG 
RETURN 


FLUSH BUFFER 

■GO-PAGE- 

EXIT 
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* COMMAND TABLE 


095C 

53 


CMNDT 

FCC 

'SP' 

095D 

50 





095E 

0A 

44 


FDB 

SPACE 

0960 

50 



FCC 

'PG' 

0961 

47 





0962 

0A 

67 


FDB 

PAGE 

0964 

4D 


i 

FCC 

'MS' 

0965 

53 


i 



0966 

0A 

8B 


FDB 

MULTS 

0968 

53 



FCC 

'SS' 

0969 

53 





096A 

0A 

99 


FDB 

SNGLS 

096C 

4E 



FCC 

'NJ' 

096D 

4A 





096E 

0A 

9D 


FDB 

NOJST 

0970 

4A 



FCC 

'JU' 

0971 

55 





0972 

0A 

A1 


FDB 

JST 

0974 

44 



FCC 

'DH' 

0975 

48 





0976 

0C 

04 


FDB 

DUBH 

0978 

44 



FCC 

'DW' 

0979 

57 





097A 

0C 

0F 


FDB 

DUBW 

097C 

44 



FCC 

'DB' 

097D 

42 





097E 

0C 

18 


FDB 

DUBB 

0980 

43 



FCC 

'CE' 

0981 

45 





0982 

0C 

24 


FDB 

CENTER 

0984 

42 



FCC 

'BR' 

0985 

52 




1 

0986 

09 

24 


FDB 

BRAK 

0988 

2A 



FCC 

' 

0989 

20 





098A 

0A 

66 


FDB 

SPACE6 

098C 

46 



FCC 

'FI' 

098D 

49 





098E 

0C 

B2 


FDB 

FILL 

0990 

4E 



FCC 

'NF' 

0991 

46 





0992 

0C 

AB 


FDB 

NOFILL 

0994 

53 



FCC 

'SI' 

0995 

49 





0996 

0C 

59 


FDB 

SIND 

0998 

50 



FCC 

'PI' 

0999 

49 





099A 

0C 

76 


FDB 

PTIND 

099C 

50 



FCC 

'PN' 

099D 

4E 





099E 

0B 

F7 


FDB 

PGNUM 

09A0 

4C 



FCC 

'LM' 
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09A1 

4D 




09fl2 

0fl 

CB 

FDB 

LEFTM 

09fl4 

49 


FCC 

'IN' 

09R5 

4E 




09R6 

0R 

DB 

FDB 

INDNT 

09R8 

40 


FCC 

'LN' 

09R9 

4E 




09RR 

0R 

FI 

FDB 

LENTH 

09RC 

4E 


FCC 

'NS' 

09RD 

53 




09RE 

0B 

23 

FDB 

NOSPC 

09B0 

52 


FCC 

'RS' 

09B1 

53 




09B2 

0B 

26 

FDB 

RESPC 

09B4 

50 


FCC 

'PL' 

09B5 

40 




09B6 

00 

44 

FDB 

PAGEL 

09B8 

43 


FCC 

'CP' 

09B9 

50 




09BR 

00 

6D 

FDB 

STCRP 

09BC 

4E 


FCC 

'NC' 

09BD 

43 




09BE 

00 

72 

FDB 

NOCAP 

0900 

4E 


PCC 

'NL' 

09C1 

40 




09C2 

00 

E6 

fDB 

NEDL 

09C4 

53 


FCC 

'SV' 

09C5 

56 




09C6 

0D 

2D 

FDB 

SRVS 

09C8 

4F 


FCC 

'OS' 

09C9 

53 




09CR 

0D 

49 

FDB 

DUTSV 

09CC 

41 


FCC 

'RT' 

09CD 

54 




09CE 

0D 

52 

FDB 

RTL 

09D0 

44 


FCC 

'DM' 

09D1 

4D 




09D2 

0D 

9E 

FDB 

DEFMRC 

09D4 

41 


FCC 

'RM' 

09D5 

4D 




09D6 

0D 

DC 

FDB 

RPMRC 

09D8 

52 


FCC 

'RM' 

09D9 

4D 




09DR 

0D 

E5 

FDB 

REMMAC 

09DC 

44 


FCC 

'DI' 

09DD 

49 




09DE 

0E 

25 

FDB 

DIVERT 

09E0 

44 


FCC 

'DR' 

09E1 

41 




09E2 

0E 

44 

FDB 

DIVAPP 

09E4 

53 


FCC 

'ST' 

09E5 

54 




09E6 

00 

D2 

FDB 

STOP 

09E8 

54 


FCC 

'TL' 
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09E9 

4C 




09EA 

0F 

Cl 

FDB 

TITLE 

09EC 

4C 


FCC 

'LT' 

09ED 

54 


1 


09EE 

0F 

B4 

FDB 

TLEN 

09F0 

43 


FCC 

'CH' 

09F1 

48 




09F2 

11 

12 

FDB 

CHNG 

09F4 

49 


FCC 

'IF' 

09F5 

46 


i 


09F6 

10 

R5 

FDB 

IF 

09F8 

4E 


FCC 

'NR' 

09F9 

52 




09FR 

11 

65 

FDB 

NREG 

09FC 

4i 


FCC 

'RR' 

09FD 

52 




09FE 

11 

84 

FDB 

RRB 

0A00 

53 


FCC 

'SR' 

0fi01 

52 




0R02 

11 

88 

FDB 

SROM 

0R04 

43 


FCC 

'CR' 

0R05 

52 




0R06 

11 

8D 

FDB 

CROM 

0R08 

41 


FCC 

'RU' 

0R09 

55 




0R0R 

11 

91 

FDB 

SRUTO 

0R0C 

54 


FCC 

'TC' 

0ROD 

43 




0ROE 

0B 

2R 

FDB 

TRBCH 

0R10 

54 


FCC 

'TF' 

0R11 

46 




0R12 

0B 

35 

FDB 

TRBFIL 

0R14 

54 


FCC 

'Tfi' 

0R15 

41 




0R16 

0B 

41 

FDB 

STRB 

0R18 

45 


FCC 

'EX' 

0R19 

58 




0R1R 

09 

51 

FDB 

FINISH 

0R1C 

54 


FCC 

'TM' 

0R1D 

4D 




0R1E 

0B 

60 

FDB 

TERM 

0R20 

47 


FCC 

'GI' 

0R21 

49 




0R22 

0B 

75 

FDB 

GETIN 

0R24 

45 


FCC 

'EV' 

0R25 

56 




0A26 

0B 

83 

FDB 

SENV 

0R28 

52 


FCC 

'RP' 

0R29 

50 




0R2R 

0C 

B9 

FDB 

RPT 

0R2C 

50 


FCC 

'PS' 

0R2D 

53 




0R2E 

0R 

3D 

FDB 

PASS 

0R30 

20 


FCC 

/ ✓ 








j 
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0A31 

20 







0A32 

0fl 

66 



FDB 

SPACE6 


0R34 

20 




FCC 



0R35 

20 







0R36 

0R 

66 



FDB 

0PACE6 


0R38 

20 




FCC 

.• ✓ 


0R39 

20 







0R3R 

0fl 

66 



FDB 

SPACE6 


0R3C 

00 



TBLEND 

FCB 

0 






* PRSS 

FILE ROUTINE . PS 


0R3D 

7F 

00 

C8 

PRSS 

CLR 

FILFLG 

FIX FLAGS 

0R4O 

7C 

00 

8C 


INC 

PASFLG 


0R43 

39 




RTS 







* SPACE 

ROUTINE . SP N 


0R44 

BD 

09 

2fl 

SPACE 

JSR 

FLUSHB 

FLUSH BUFFER 

0R47 

96 

73 



LDA A 

NSP 

NO SPACE? 

0R49 

26 

IB 



BNE 

SPRCE6 


0R4B 

BD 

12 

lfl 


JSR 

CHKNUM 

CHECK FOR NUMBER 

0A4E 

96 

70 



LDA A 

INNUM 

GET NUMBER 

0R50 

26 

03 



BNE 

SPACE2 


0R52 

7C 

00 

70 


INC 

INNUM 

INC BV ONE 

0R55 

BD 

0C 

F5 

SPRCE2 

JSR 

FNTR 

FIND TRAP 

0R58 

91 

70 



CMP A 

INNUM 

EQUAL? 

0R5R 

25 

02 



3L0 

SPACE4 


0R5C 

96 

70 



LDA A 

INNUM 

GET NUMBER 

0R5E 

36 



SPRCE4 

PSM A 



0R5F 

BD 

08 

99 


JSR 

PCRLF 

•OUTPUT CR AND LF 

0A62 

32 




PUL A 



0R63 

4fl 




DEC A 


DEC COUNT 

0R64 

26 

F8 



BNE 

SPACE4 


0A66 

39 



SPRCE6 

RTS 


RETURN 





* PAGE 

ROUTINE 

. PG +N 


0A67 

BD 

12 

1R 

PAGE 

JSR 

:hknum 

CHECK FOR NUMBER 

0A6A 

24 

07 



BCC 

°AGE2 


0R6C 

96 

74 



LDA A 

=-GN 

GET PAGE NUMBER 

0R6E 

BD 

12 

09 


JSR 

•IXVAL 

FIX VALUE 

0R71 

20 

08 



3RA 

: ‘AGE4 


0R73 

96 

73 


PRGE2 

LDA A 

NSP 

NO SPACE? 

0R75 

26 

13 



BNE 

*AGE6 


0R77 

96 

5E 



uDA A 

NPGN 

GET NEW PAGE NUM. 

0R79 

26 

03 



BNE . 

5 AGE4 


0A7B 

96 

74 



t_DA A 

? GN 


0R7D 

4C 




ENC A 


3UMP BV ONE 

0R7E 

97 

3E 


PAGE4 

STA A 

NPGN 

SAVE AS NEW 

0R80 

BD 

09 

2fl 


JSR 

FLUSHB 

FLUSH BUFFER 

0R83 

BD 

08 

99 

PAGES 

JSR 

PCRLF 

OUTPUT CR & LF 

0R86 

96 

5E 



LDA A 

NPGN 

GET NEW PAGE NUM. 

0R88 

26 

F9 



BNE 

5 AGE5 








- 
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0A8A 39 


PAGE6 RTS RETURN 

* MULTIPLE SPACE ROUTINE . MS +N 


0A8B 

BD 

12 

1A 

MULTS 

JSR 


0A8E 

24 

04 



BCC 


0A90 

96 

70 



LDA 

A 

0A92 

20 

02 



BRA 


0A94 

86 

02 


MULTS2 

LDA 

A 

0A96 

97 

D2 


MULTS3 

STA 

A 

0A98 

39 




RTS 






* SINGLE SPACE 

0A99 

7F 

00 

D2 

SNGLS 

CLR 


0A9C 

39 




RTS 



CHKNUM 

CHECK FOR HUMBER 

MULTS2 

INNUM 

GET NUMBER 

MULTS3 

#2 

DEFAULT IS 2 

MSC 

SET COUNT 

ROUTINE 

. SS 

MSC 

CLEAR COUNT 


* NO ADJUST ROUTINE . NJ 


0R9D 7F 00 D6 NOJST CLR JUST CLEAR JUST FLAG 

0AA0 39 RTS 


* SET JUSTIFICATION ROUTINE JU C 


0AA1 

97 

D6 


JST 

0AA3 

BD 

11 D8 


0AA6 

BD 

11 

E6 


0AA9 

Cl 

02 



0AAB 

26 

09 



0AAD 

81 

4E 



0AAF 

26 

06 



0AB1 

4F 



JST1 

0AB2 

97 

CE 



0AB4 

97 

D0 



0AB6 

39 



JST15 

0AB7 

81 

52 


JST2 

0AB9 

26 

06 



BABB 

7F 

00 

CE 


BABE 

97 

D0 



0AC0 

39 




0AC1 

81 

43 


JST3 

0AC3 

26 

EC 



0AC5 

7F 

00 

D0 


0AC8 

97 

CE 



0ACA 

39 



JST4 





* SET 

0ACB 

BD 

12 

1A 

LEFTM 

0ACE 

24 

0A 



0AD0 

96 

4E 



0AD2 

BD 

12 

09 


0AD5 

2A 

01 



0AD7 

4F 





STA 

A 

JUST 

JSR 


LDNSKP 

JSR 


CLSFV 

CMP 

B 

#2 

BNE 


JST15 

CMP 

A 

#'N 

BNE 


JST2 

CLR 

A 


STA 

A 

CNJ 

STA 

RTS 

A 

RTJ 

CMP 

A 

#'R 

BNE 


JST3 

CLR 


CNJ 

STA 

RTS 

A 

RTJ 

CMP 

A 

#'C 

BNE 


JST1 

CLR 


RTJ 

STA 

RTS 

A 

CNJ 


LEFT MARGIN . LM 


JSR 


CHKNUM 

BCC 


LEFTM2 

LDA 

A 

LFM 

JSR 


FIXVAL 

BPL 


LEFTM1 

CLR 

A 



SET FLAG 
GET NEXT CHAR. 
CLASSIFY IT 

NORMAL? 

ADJUST FLAGS 

RETURN 
RIGHT HAND? 

FIX FLAGS 

CENTERED? 

FIX FLAGS 
RETURN 
+N 

CHECK FOR NUMBER 

GET MARGIN 
FIX VALUE 
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X 


r \ 


\ 


8RD8 

97 

4E 


LEFTM1 

STR fl 

LFM 

SET NEW VALUE 

0flDR 

39 



LEFTM2 

RTS 


RETURN 





* SET 

INDENT . 

IN +N 


0RDB 

BD 

09 

2R 

INDNT 

JSR 

FLUSHB 

FLUSH BUFFER 

0RDE 

BD 

12 

1R 


JSR 

CHKNUM 

CHECK FOR NUMBER 

0RE1 

24 

F7 



BCC 

LEFTM2 


0RE3 

96 

48 



LDR fl 

IND 

GET INDENT 

0RE5 

BD 

12 

09 


JSR 

FIXVflL 

FIX VALUE 

0RE8 

2R 

01 



BPL 

INDNT2 


0RER 

4F 




CLR fl 



0REB 

90 

48 


INDNT2 

SUB fl 

IND 

SET INDENT 

0RED 

97 

B3 



STR R 

TIND 

SAVE AS TEMP 

0flEF 

20 

14 



BRA 

LENT25 






* SET LENGTH OF LINE . 

LN +N 

0RF1 

BD 

12 

1R 

LENTH 

JSR 

CHKNUM 

CHECK FOR NUMBER 

0RF4 

24 

19 


< 

BCC 

LENTH5 


0RF6 

96 

4B 



LDR R 

LLN 

GET LENGTH 

0RF8 

BD 

12 

09 


JSR 

FIXVflL 

FIX VALUE 

0RFB 

81 

0E 



CMP fl 

#14 

14 OR LESS? 

0flFD 

22 

02 



BHI 

LENTH2 


0RFF 

86 

0F 



LDR fl 

#15 

FORCE TO 15 

OB01 

90 

4B 


LENTH2 

SUB fl 

LLN 

SET NEW 

0B03 

97 

B4 



STfl fl 

TLLN . 

SAVE AS TEMP 

0B05 

DE 

DR 


LENT25 

LDX 

BUFPNT 

CHECK POINTER 

0B07 

80 

15 

E4 


CPX 

#LINBUF 


0B0R 

26 

03 



BNE 

LENTH5 


0B0C 

7E 

14 

14 


JMP 

FIXWD 

GO FIX WIDTH 

0B0F 

39 



LENTH5 

RTS 


RETURN 





* DO NECESSRRV 

TABBING 


0B10 

D6 

42 


DOTflB 

LDfl B 

COLCNT 

GET COUNT 

0B12 

DE 

80 



LDX 

NXTTfiB 

POINT TO TAB 

0B14 

El 

00 



CMP B 

0, X 

COMPARE 

0B16 

24 

05 



BHS 

DOTflBZ* 


0B18 

96 

Cl 



LDfl fl 

TFILL i 

GET FILL CHAR. 

0B1R 

7E 

07 

0R 


JMP 

FETCH31 


0B1D 

7F 

00 

82 

D0TRB2 

CLR 

TABFLGl 

CLEAR FLAG 

0B20 

7E 

06 

8C 


JMP 

GETCHR 

BACK TO GET CHAR. 





* SET NO SPACE 

. NS 


0B23 

97 

73 


NOSPC 

STfl fl 

NSP 

SET FLAG 

0B25 

39 




RTS 







* RESTORE SPACE MODE 

RS 

0826 

7 F 

00 

73 

RESPC 

CLR 

NSP 

CLEAR FLAG 

0B29 

39 




RTS 
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* DEFINE 

i TAB CHARACTER 

. TC C 

0B2A 

BD 

11 

D8 

TRBCH 

JSR 


LDNSKP 

GET TO NEXT CHAR. 

0B2D 

81 

0D 



CMP 

A 

#$D 

IS IT A C. R. ? 

0B2F 

26 

01 



BNE 


TABCH2 


0B31 

4F 




CLR 

A 


CLEAR VALUE 

0B32 

97 

C0 


TRBCH2 

STA 

A 

TAB 

SAVE TRB CHAR. 

0B34 

39 




RTS 



RETURN 





* DEFINE TfiE 

t FILL CHARACTER . TF C 

0B35 

BO 

11 

D8 

TflBFIL 

JSR 


LDNSKP 

GET TO NEXT CHAR. 

0B38 

81 

0D 



CMP 

A 

#*D 

IS IT C. R. ? 

0B3R 

26 

02 



BNE 


TABFI2 


0B3C 

86 

R0 



LDA 

A 

#$A0 

SET UNPAD SPACE 

0B3E 

97 

Cl 


TRBFI2 

STA 

A 

TFILL 

SAVE CHAR. 

0B40 

39 




RTS 



RETURN 





* DEFINE TRB COLUMNS . 

TA 1 2 3 4 

0B41 

CE 

01 

10 

STRB 

LDX 


#TABS 

POINT TO TABS 

0B44 

BD 

13 

ED 

STRB2 

JSR 


PUSHX 

SAVE X 

0B47 

BD 

12 

lfl 


JSR 


CHKNUM 

CHECK FOR NUMBER 

0B4R 

24 

0E 



BCC 


STAB4 


0B4C 

BD 

13 

FF 


JSR 


PULLX 

RESTORE 

0B4F 

96 

70' 



LDA 

A 

INNUM 

GET NUMBER 

0B51 

R7 

00 



STA 

A 

0 , X 

SAVE IT 

0B53 

08 




INX 



BUMP POINTER 

0B54 

8C 

01 

24 


CPX 


#TABEND 

END OF TABLE? 

0B57 

26 

EB 



BNE 


STAB2 


0B59 

39 




RTS 



RETURN 

0B5R 

BD 

13 

FF 

STRB4 

JSR 


PULLX 


0B5D 

6F 

00 



CLR 


0 , X 

CLEAR LAST 

0B5F 

39 




RTS 








* OUTPUT STRING TO TERMINRL . TM STRING 

0B60 

BD 

11 

D8 

TERM 

JSR 


LDNSKP 

GET TO NEXT CHAR. 

0B63 

R6 

00 


TERM2 

LDA 

A 

0 , X 

GET CHAR. 

0B65 

81 

0D 



CMP 

A 

#*D 

IS IT C. R. ? 

0B67 

27 

03 



BEQ 


TERM4 


0B69 

08 




INX 



BUMP THE POINTER 

0B6A 

20 

F7 



BRA 


TERM2 


0B6C 

86 

04 


TERM4 

LDA 

A 

#4 

SET UP 4 

0B6E 

R7 

00 



STA 

A 

0 , X 

SAVE IT 

0B70 

DE 

E6 



LDX 


CMNPNT 

SET POINTER 

0B72 

7E 

14 

90 


JMP 


PSTRNG 

GO PRINT STRING 





* GET INPUT 

FROM TERMINAL . GI PROMPT 

0B75 

8D 

E9 


GETIN 

BSR 


TERM 

GO PRINT PROMPT 

0B77 

CE 

15 

62 


LDX 


#QUSTR 

POINT TO STR. 

0B7R 

BD 

14 

92 


JSR 


PDATA 

OUTPUT IT 

0B7D 

BD 

14 

44 


JSR 


GIBUF 

GET INPUT RESPONSE 
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0B80 97 9E 
0B82 39 





* SET 

0B83 

BD 

12 1A 

SENV 

0B86 

24 

08 


0B88 

96 

70 


0B8A 

27 

05 


0B8C 

86 

01 


0B8E 

20 

01 


0B90 

4F 


SENV1 

0B91 

91 

7E 

SENV2 

0B93 

26 

01 


0B95 

39 



0B96 

97 

7E 

SENV3 

0B98 

96 

42 


0B9A 

D6 

83 


0B9C 

D7 

42 


0B9E 

97 

83 


0BA0 

96 

48 


0BA2 

D6 

84 


0BA4 

97 

84 


0BA6 

D7 

48 


0BA8 

96 

4B 


0BAA 

D6 9F 


0BAC 

97 

9F 


0BAE 

D7 

49 


0BB0 

CE 

00 C2 


0BB3 

A6 

00 

SENV4 

0BB5 

E6 

01 


0BB7 

A7 

01 


0BB9 

E7 

00 


0BBB 

08 



0BBC 

08 



0BBD 

8C 

00 DA 


0BC0 

26 

Fl 


0BC2 

A6 

00 

SENV6 

0BC4 

E6 

02 


0BC6 

A7 

02 


0BC8 

E7 

00 


0BCA 

A6 

01 


0BCC 

E6 

03 


0BCE 

A7 

03 


0BD0 

E7 

01 


0BD2 

08 



0BD3 

08 



0BD4 

03 



0BD5 

@8 



0BD6 

8C 

00 E6 


0BD9 

26 

E 7 


0BDB 

CE 

15 E4 


0BDE 

A6 

00 

SENV8 

0BE0 

E6 

C8 



STfl fl SBFLG 
RTS 


NEW ENVIRONMENT 


JSR 


CHKNUM 

BCC 


SENV1 

LDA 

A 

INNUM 

BEQ 


SENV2 

LDA 

A 

41 

BRA 


SENV2 

CLR 

A 


CMP 

A 

EV 

BNE 


SENV3 

RTS 



STA 

A 

EV 

LDA 

A 

COLCNT 

LDA 

B 

C0LCN2 

STA 

B 

COLCNT 

STA 

A 

C0LCN2 

LDA 

A 

IND 

LDA 

B 

IND2 

STA 

A 

IND2 

STA 

B 

IND 

LDA 

A 

LLN 

LDA 

B 

LLN2 

STA 

A 

LLN2 

STA 

B 

LLN 

LDX 


4AUT0 

LDA 

A 

0/ X 

LDA 

B 

±J X 

STA 

A 

±, X 

STA 

B 

0/ X 

INX 



INX 



CPX 


4BUFPNT 

BNE 


SENV4 

LDA 

A 

0, X 

LDA 

B 

2; X 

STA 

A 

Z, X 

STA 

B 

0; X 

LDA 

A 

1, X 

LDA 

B 

3, X 

STA 

A 

3, X 

STA 

B 

1, X 

INX 



INX 



INX 



INX 



CPX 


4CMNPNT 

BNE 


SENV6 

LDX 


4LINBUF 

LDA 

A 

0, X 

LDA 

B 

200, X 


SET FLAG 
RETURN 

EV N 

CHECK FOR NUMBER 

GET NUMBER 

SET UP 1 

CLEAR VALUE 
PRESENT EV? 

VES, RETURN 
SET NEW EV 
SAVE COL COUNT 

FIX THE INDENT 

DO LINE LENGTH 

POINT TO BLOCK 
GET VALUE 

SWAP VALUE 

GO TO NEXT 

FINISHED? 

GET VALUE 

SWAP 

BUMP THE POINTER 

FINISHED? 

POINT TO BUFFER 
GET A CHAR. 
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0BE2 

R7 

08 



STR R 

200, X 

SWAP FOR NEW 

0BE4 

E7 

00 



STR B 

0, X 


0BE6 

09 




INX 


BUMP TO NEXT 

0BE7 

8C 

16 

RC 


CPX 

#LINBU2 

FINISHED? 

0BER 

26 

F2 



BNE 

SENV8 


0BEC 

39 




RTS 


RETURN 

0BED 

R6 

00 


SENV9 

LDR fl 

0, X 

GET VALUE 

0BEF 

08 




INX 


BUMP TO NEXT 

0BF0 

RB 

00 


SENV95 

1 ADD R 

0, X 

ADD IN BIAS 

0BF2 

08 




INX 



0BF3 

5fl 




DEC B 


DEC THE VALUE 

0BF4 

26 

Ffl 



BNE 

SENV95 


0BF6 

39 




RTS 


RETURN 





* SET 

NEW PAGE 

NUMBER 

PN +N 

0BF7 

BD 

12 

lfl 

PGNUM 

JSR 

CHKNUM 

CHECK FOR NUMBER 

0BFfl 

24 

07 



BCC 

PGNUM4 


0BFC 

96 

74 



LDR fl 

PGN 

GET VALUE 

0BFE 

BD 

12 

09 


JSR. 

FIXVRL 

GO FIX VALUE 

0C01 

97 

74 



STR R 

PGN 

SAVE NEW 

0C03 

39 



PGNUM4 

RTS 


RETURN 





* SET 

DOUBLE HEIGHT . DH 


0C04 

BD 

09 

2E 

DUBH 

JSR 

FLUSH 

FLUSH BUFFER 

0C07 

86 

12 


DUBH1 

LDR fl 

#$12 

SET UP CODE 

0C09 

70 

00 

4D 


INC 

LINCNT 

BUMP LINE COUNT 

0C0C 

7E 

14 

9F 

DUBH2 

JMP 

OUTCHR 

OUTPUT CHARACTER 





* SET 

DOUBLE WIDTH . DW 


0C0F 

BD 

09 

2E 

DUBW 

JSR 

FLUSH 

FLUSH BUFFER 

0C12 

86 

0E 



LDR R 

#$0E 

SET UP CODE 

0C14 

97 

8E 



STR fl 

DWFLG 

SET FLAG 

0C16 

20 

F4 



BRfl 

DUBH2 






* SET 

DOUBLE BOTH . DB 


0C18 

BD 

09 

2E 

DUBB 

JSR 

FLUSH 

FLUSH BUFFER 

0C1B 

86 

0E 



LDR fl 

#$0E 

SET UP CODE 

0C1D 

97 

8E 



STR fl 

DWFLG 

SET FLAG 

0C1F 

BD 

14 

9F 


JSR 

OUTCHR 

OUTPUT CHARACTER 

0C22 

20 

E3 



BRR 

DUBH1 






* CENTER N LINES . CE +N 


0024 

BD 

09 

2R 

CENTER 

JSR 

FLUSHB 

FLUSH BUFFER 

0C27 

BD 

12 

lfl 


JSR 

CHKNUM 

CHECK FOR NUMBER 

0C2R 

24 

0B 



BCC 

CENTE2 

, 

0C2C 

96 

D4 



LDR fl 

CNTFLG 

GET OLD COUNT 

0C2E 

BD 

12 

09 


JSR 

FIXVRL 

FIX VALUE 

0C31 

97 

D4 



STR R 

CNTFLG 

SAVE NEW 

0C33 

27 

23 



BEQ 

PRGEL4 
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0C35 

20 

04 



BRfl 

CENTE4 


0C37 

86 

01 


CENTE2 

LDfl fl 

#1 

DEFAULT TO 1 

0C39 

97 

D4 



STfl R 

CNTFLG 

SAVE COUNT 

0C3B 

96 

C8 


CENTE4 

LDR R 

FILFLG 

GET FLAG 

0C3D 

97 

6E 



STfl fl 

TFILF 

SAVE AS TEMP 

0C3F 

86 

FF 



LDfl fl 

#$FF 


0C41 

97 

C8 



STfl ft 

FILFLG 

FORCE FILL MODE 

0C43 

39 




RTS 


RETURN 





♦ SET 1 

PAGE LENGTH . PL 

+N 

0C44 

BD 

12 

lfl 

PfiGEL 

JSR 

CHKNUM 

CHECK FOR NUMBER 

0C47 

25 

04 



BCS 

PflGELl 


0C49 

86 

42 



LDfl fl 

#66 

DEFAULT TO 66 

0C4B 

28 

09 



BRfl 

PAGEL2 


0C4D 

96 

4F 


PflGELl 

LDfl fl 

PGL 

GET LAST VALUE 

0C4F 

BD 

12 

89 


JSR 

FIXVflL 

FIX VALUE 

0C52 

4D 




TST fl 



0C53 

26 

01 



BNE 

PAGEL2 


0055 

4C 




INC fl 


BUMP BV ONE 

0C56 

97 

4F 


PRGEL2 

STfl fl 

PGL 

SAVE NEW 

0C58 

39 



PAGEL4 

RTS 


RETURN 


* SET SINGLE INDENT . SI +N 


0C59 

BD 

09 

2fl 

SIND 

JSR 

FLUSHB 

FLUSH BUFFER 

0C5C 

BD 

12 

lfl 


JSR 

CHKNUM 

CHECK FOR NUMBER 

0C5F 

24 

F7 



BCC 

PAGEL4 


0C61 

96 

7C 



LDfl fl 

SIN 

GET OLD VALUE 

0C63 

BD 

12 

09 


JSR 

FIXVflL 

GO FIX VALUE 

0C66 

90 

7C 



SUB fl 

SIN 


0C68 

97 

B2 



STfl fl 

TSIN 

SAVE AS TEMP 

0C6fl 

7E 

0B 

05 


JMP 

LENT25 






* SET 

CAPS MODE . CP 


0C6D 

86 

0F 


STCflP 

LDfl fl 

#$F 

SET FLAG 

0C6F 

97 

77 



STfl fl 

DOCflP 


0C71 

39 




RTS 






• 

* CLEAR CAPS MODE . NC 


0C72 

7F 

00 

77 

NOCAP 

CLR 

DOCflP 

CLEAR FLAG 

0C75 

39 




RTS 







* PUT 

IN INDENT FIELD 

. PI STRING 

0C76 

BD 

09 

2fl 

PTIND 

JSR 

FLUSHB 

FLUSH BUFFER 

0C79 

BD 

11 

D8 


JSR 

LDN3KP 

GET TO NEXT CHAR. 

0C7C 

D6 

48 



LDfl B 

IND 

GET INDENT 

0C7E 

27 

2fl 



BEG 

PTIND5 


0C80 

D7 

69 



STfl B 

NOCR 

SET FLAG 

0C82 

5F 




CLR B 



0C83 

37 



PTINDi 

£ PSH B 
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0C84 

BD 

06 

8C 


JSR 


GETCHR 

GO GET CHRR. 

0C87 

33 




PUL 

B 



0C88 

81 

0D 



CMP 

R 

#$D 

CHECK IF C. R. ? 

0C8R 

27 

0C 



BEQ 


PTIND3 


0C8C 

37 




PSH 

B 



0C8D 

BD 

14 

9F 


. JSR 


OUTCHR 

GO OUTPUT CHRR. 

0C90 

33 




PUL 

B 



0C91 

5C 




INC 

B 


BUMP COUNT 

0C92 

D1 

48 



CMP 

B 

IND 

FINISHED? 

0C94 

24 

0E 



BHS 


PTIND4 


0C96 

20 

EB 



BRR 


PTIND2 


0C98 

86 

20 


PTIND3 

LDR 

R 

#$20 

SET UP SPACE 

0C9R 

37 




PSH 

B 



0C9B 

BD 

14 

9F 


JSR 


OUTCHR 

OUTPUT IT 

0C9E 

33 




PUL 

B 



0C9F 

5C 




INC 

B 


BUMP COUNT 

0CR0 

D1 

48 



CMP 

B 

IND 

FINISHED? 

0CR2 

25 

F4 



BLO 


PTIND3 


0CR4 

5C 



PTIND4 

INC 

B 


BUMP COUNT 

0CR5 

D7 

7B 



STfl 

B 

PTFL 

SET FLRG 

0CR7 

7F 

00 

69 


CLR 


NOCR 


0CRR 

39 



PTIND5 

RTS 



RETURN 


* SET NOFILL MODE . NF 


0CRB 

BD 

09' 

2R 

NOFILL 

JSR 

FLUSHB 

FLUSH BUFFER 

0CRE 

7F 

00 

C8 


CLR 

FILFLG 

CLEAR FLAG 

0CB1 

39 




RTS 







+ SET 1 

FILL MODE . FI 


0CB2 

BD 

09 

2fl 

FILL 

JSR 

FLUSHB 

FLUSH BUFFER 

0CB5 

7C 

00 

C8 


INC 

FILFLG 

SET FLAG 

0CB8 

39 




RTS 







* REPEAT COMMAND . RP 


0CB9 

BD 

09 

2R 

RPT 

JSR 

FLUSHB 

FLUSH BUFFER 

0CBC 

7C 

00 

B5 


INC 

SUPL 

SET FLAG 

0CBF 

BD 

0R 

67 


JSR 

PAGE 

GO PAGE 

0CC2 

BD 

14 

E5 

• 

JSR 

RWND 

REWIND FILE 

0CC5 

8E 

01 

FF 


LDS 

#STRCK 

*** STACK REF. < 

0CC8 

4F 




CLR fl 



0CC9 

CE 

00 

5fl 


LDX 

#GDNUM 

CLEAR SPACE 

0CCC 

BD 

02 

RC 


JSR 

CLRSP2 


0CCF 

7E 

02 

C0 


JMP 

INIT 

GO INIT. 





* STOP 

COMMAND 

. ST 


0CD2 

BD 

09 

2R 

STOP 

JSR 

FLUSHB 

FLUSH BUFFER 

0CD5 

CE 

13 

58 


LDX 

ttSTPSTR 

POINT TO STRING 

0CD8 

BD 

14 

90 

STOP1 

JSR 

PSTRNG 

OUTPUT IT 

0CDB 

BD 

02 

06 


JSR 

INCH 

GO GET CHAR. 

0CDE 

81 

33 



CMP fl 

#'S 

IS IT 'S'? 
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IL 


0CE0 

26 

03 



BNE 

STOP2 


0CE2 

7E 

09 

53 


JMP 

FINIS4 

GO FINISH 

0CE5 

39 



STOP2 

RTS 


RETURN 





* NEED 

N LINES 

. NL N 


0CE6 

BD 

12 

1A 

NEDL 

JSR 

CHKNUM 

CHECK FOR NUMBER 

0CE9 

25 

03 



BCS 

NEDL1 


0CEB 

7C 

00 

70 


INC 

INNUM 

BUMP BV 1 

0CEE 

8D 

05 


NEDL1 

BSR 

FNTR 

GO FIND TRAP 

0CF0 

91 

70 


NEDL2 

CMP A 

INNUM 

COMPARE 

0CF2 

25 

4A 



BLO 

SAVS25 


0CF4 

39 



NEDL4 

RTS 







* FIND 

THE NEXT TRAP 


0CF5 

86 

FF 


FNTR 

LDA A 

#SFF 

SET MIN DISTANCE 

0CF7 

97 

7D 



STA A 

MINDIS 


0CF9 

CE 

17 

D8 


LDX 

#TRRPS 

POINT TO TRAPS 

0CFC 

D6 

4D 


FNTR2 

LDA B 

LINCNT 

GET COUNT 

0CFE 

El 

00 



CMP B 

0, X 

CHECK LOC. 

0D00 

24 

0F 



BHS 

FNTR4 


0D02 

A6 

00 



LDA A 

0, X 

GET DISTANCE 

0D04 

81 

FF 



CMP A 

#$FF 


0D06 

27 

11 



BEQ 

FNTR5 


0D08 

10 




SBA 


SWAP REGISTERS 

0D09 

91 

7D 



CMP A 

MINDIS 

MIN DISTANCE? 

0D0B 

24 

04 



BHS 

FNTR4 


0D0D 

97 

7D 



STA A 

MINDIS 

SAVE NEW 

0D0F 

DF 

85 



STX 

NXTTRP 

SAVE POINTER 

0D11 

08 



FNTR4 

INX 


BUMP THE POINTER 

0D12 

08 




INX 



0D13 

08 




INX 



0D14 

8C 

18 

08 


CPX 

#TRPEND 

FINISHED? 

0D17 

26 

E3 



BNE 

FNTR.2 


0D19 

D6 

7D 


FNTR5 

LDA B 

MINDIS 

GET DISTANCE 

0D1B 

Cl 

FF 



CMP B 

#*FF 


0D1D 

26 

07 



BNE 

FNTR6 


0D1F 

96 

4F 



LDA A 

PGL 

SET UP PAGE LEN. 

0D21 

90 

4D 



SUB A 

LINCNT 


0D23 

4C 




INC A 


FIX VALUE 

0D24 

5F 




CLR B 



0D25 

39 




RTS 


RETURN 

0D26 

E6 

00 


FNTR6 

LDA B 

0/ X 


0D28 

96 

7D 



LDA A 

MINDIS 

GET DISTANCE 

0D2A 

DE 

85 



LDX 

NXTTRP 

POINT TO TRAP 

0D2C 

39 



1 

RTS 


RETURN 





* SAVE 

SPACE ROUTINE 

SV N 

0D2D 

7F 

00 

87 

SAVS 

CLR 

SVDSPC 

CLEAR COUNT 

0D30 

BD 

12 

1A 


JSR 

CHKNUM 

CHECK FOR NUMBER 

0D33 

25 

03 



BCS 

SAVS1 


0D35 

7C 

00 

70 


INC 

INNUM 

GET COUNT 






■ 


■ 
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0D38 

8D 

BB 


SRVS1 

BSR 


FNTR 

FIND TRAP 

0D3fl 

91 

70 


SAVS2 

CMP 

A 

INNUM 


0D3C 

25 

06 



BLO 


SRVS4 


0D3E 

7F 

00 

73 

SRVS25 

CLR 


NSP 

CLEAR NO SPACE 

0D41 

7E 

0R 

5E 


JMP 


SPRCE4 

GO 00 SPACE 

0044 

96 

70 


SRVS4 

LOR 

fl 

INNUM 

GET COUNT 

0D46 

97 

87 



STR 

A 

SVDSPC 

SAVE COUNT 

0D48 

39 



SRVS5 

RTS 



RETURN 





* OUTPUT SAVED 

SPACE . OS 

0D49 

96 

87 


OUTSV 

LOR 

fl 

SVDSPC 

GET REMEMBERED COUNT 

0D4B 

27 

FB 



BEQ 


SR VS 5 


0D4D 

7F 

00 

87 


CLR 


SVDSPC 

CLEAR COUNT 

0D50 

20 

EC 



BRR 


SRVS25 

OUTPUT SPACE 





* RT LINE N 

ROUTINE . RT 

-N 

0D52 

BO 

12 

lfl 

RTL 

JSR 


CHKNUM 

CHECK FOR NUMBER 

0D55 

24 

28 



BCC 


RTL35 


0D57 

BO 

11 

06 


JSR 


TSTNEG 

IS IT NEGATIVE? 

0D5R 

BO 

0F 

8fl 


JSR 


GTNRM 

GET NAME 

0D5D 

96 

4F 



LOR 

fl 

PGL 

GET PAGE LEN. 

0D5F 

4C 




INC 

fl 



0D60 

BO 

12 

09 


JSR 


FIXVRL 

FIX THE VALUE 

0D63 

40 




TST 

fl 



0D64 

26 

01 



BNE 


RTL1 


0066 

4C 




INC 

R 


BUMP BV ONE 

0D67 

CE 

17 

D8 

RTL1 

LDX 


#TRAPS 

POINT TO TRAPS 

0D6A 

R1 

00 


RTL2 

CMP 

fl 

0, X 

COMPARE 

0D6C 

27 

12 



BEQ 


RTL4 


0D6E 

80 

27 



BSR 


INTRP 


0D70 

26 

F8 



BNE 


RTL2 


0072 

CE 

17 

D8 


LDX 


#TRAPS 

POINT TO TRAPS 

0D75 

C6 

FF 



LOR 

B 

#$FF 

SET REFERENCE 

0077 

El 

00 


RTL3 

CMP 

B 

0, X 


0D79 

27 

14 



BEQ 


RTL5 


0D7B 

80 

lfl 



BSR 


INTRP 


0D7D 

26 

F8 



BNE 


ATL3 


0D7F 

39 



RTL35 

RTS 



RETURN 

0D80 

06 

R0 


RTL4 

LOR 

B 

MRCNRM 

GET NAME 

0D82 

26 

04 



BNE 


RTL45 


0D84 

5R 




DEC 

B 


DEC THE COUNT 

0D85 

E7 

00 



STR 

B 

0, X 

SAVE POSITION 

0D87 

39 




RTS 



RETURN 

0D88 

96 

fll 


RTL45 

LOR 

fl 

MRCNflM+1 

GET NAME 

0D8A 

E7 

01 



STR 

B 

1, X 

SAVE CHAR. 

0D8C 

R7 

02 



STR 

fl 

2/ X 


0D8E 

39 




RTS 



RETURN 

0D8F 

D6 

R0 


RTL5 

LOR 

B 

MflCNRM 

GET NAME 

0D91 

27 

EC 



BEQ 


RTL35 


0D93 

R7 

00 



STR 

R 

O, X 

SAVE CHARACTER 

0095 

20 

FI 



BRR 


RTL45 
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TRAP POINTER 


0D97 

08 INTRP 

I NX 

0D98 

08 

INX 

0D99 

08 

INX 

0D9A 

8C 18 08 

CPX 

0D9D 

39 

RTS 


FIX POINTER 


ttTRPEND FINISHED? 


* DEFINE MACRO 






0D9E 

96 

66 


DEFMAC 

LDA A 

MBFLG 

CHECK DEF FLAG 

0DA0 

26 

39 



BNE 

DEFMA5 


0DA2 

BD 

0E 

4F 


JSR 

OPMAC 

GO OPEN MACRO 

0DA5 

27 

34 


DEFMA2 

BEQ 

DEFMA5 


0DA7 

7C 

00 

8F 


INC 

DFMFLG 

SET DEF FLAG 

0DAA 

7F 

00 

65 


CLR 

C'MFLG 

CLEAR COMMAND 

0DAD 

BD 

06 

89 

DEFMA3 

JSR 

CLRGET 

GO GET CHARACTER 

0DB0 

81 

2E 



CMP A 


IS IT A PERIOD? 

0DB2 

26 

0E 



BNE 

DEFM35 


0DB4 

BD 

06 

89 


JSR 

CLRGET 

GET NEXT CHAR. 

0DB7 

81 

2E 



CMP A 


IS IT A PERIOD? 

0DB9 

27 

13 



BEQ 

DEFMA4 


0DBB 

36 




PSH A 


SAVE CHAR 

0DBC 

86 

2E 



LDA A 


SET UP PERIOD 

0DBE 

BD 

0E 

AE 


JSR 

OUTMAC 

OUTPUT TO MACRO 

0DC1 

32 




PUL A 


RESTORE CHAR 

0DC2 

BD 

0E 

AE 

DEFM35 

JSR 

OUTMAC 

OUTPUT TO MACRO 

0DC5 

81 

0D 



CMP A 

#$D 

IS IT A C. R. ? 

0DC7 

27 

E4 



BEQ 

DEFMA3 


0DC9 

BD 

06 

89 


JSR 

CLRGET 

GET NEXT CHAR. 

0DCC 

20 

F4 



BRA 

DEFM35 


0DCE 

BD 

0E 

F8 

DEFMA4 

JSR 

CLSMAC 

CLOSE MACRO 

0DD1 

BD 

06 

89 

DEFM45 

JSR 

CLRGET 

GET CHARACTER 

0DD4 

81 

0D 



CMP A 

#$D 

IS IT A C. R. ? 

0DD6 

26 

F9 



BNE 

DEFM45 


0DD8 

7F 

00 

8F 


CLR 

DFMFLG 

CLEAR DEF FLAG 

0DDB 

39 



DEFMA5 

RTS 


RETURN 





* APPEND TO A 

MACRO . AP 

XX 

0DDC 

96 

66 


APMAC 

LDA A 

MBFLG 

CHECK FLAG 

0DDE 

26 

FB 



BNE 

DEFMA5 


0DE0 

BD 

0E 

82 


JSR 

OPAPP 

OPEN FOR APPEND 

0DE3 

20 

C0 



BRA 

DEFMA2 






* REMOVE MACRO 

. RM XX 


0DE5 

BD 

0F 

8A 

REMMAC 

JSR 

GTNAM 

GO GET NAME 

0DE8 

BD 

0F 

35 


JSR 

FNDMAC 

FIND MACRO 

0DEB 

27 

01 



BEQ 

REMMA4 

. 

0DED 

39 




RTS 


RETURN 

0DEE 

DF 

A2 


REMMA4 

STX 

MACTMP 

SAVE POINTER 

0DF0 

EE 

02 



LDX 

2, X 

GET ADDRESS 

0DF2 

BD 

0F 

64 


JSR 

CHKLST 

LAST MACRO? 












TSC 6809 


0DF5 24 
0DF7 DE 
0DF9 R6 
0DFB E6 
0DFD DE 
0DFF ft? 
0E01 E7 
0E03 DE 
0E05 DF 
0E07 DE 
0E09 20 
0E0B DE 
0E0D fl6 
0E0F E6 
0E11 97 
0E13 D7 


0E15 E6 
0E17 E7 
0E19 08 
0E1R 9C 
0E1C 26 
0E1E 09 
0E1F 09 
0E20 09 
0E21 09 
0E22 DF 
0E24 39 


0E25 96 
0E27 27 
0E29 7C 
0E2C 7E 
0E2F 7F 
0E32 7F 
0E35 39 
0E36 7C 
0E39 8D 
0E3B 27 
0E3D 7C 
0E40 7F 
0E43 39 


0E44 96 
0E46 26 
0E48 7C 
0E4B 8D 
0E4D 20 


[riMM'i 


TEXT PROCESSOR 
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14 



BCC 


REMMR6 


R2 



LDX 


MRCTMP 

GET POINTER 

02 



LDR 

R 

2/ X 

GET ADDRESS 

03 



LDR 

B 

3/ X 


R4 



LDX 


LSTRVL 

SET LAST AVAIL 

00 



STR 

A 

0, X 


01 



STR 

B 

1> X 


RC 



LDX 


NXTMRC 

SET UP NXT MAC 

R4 



STX 


LSTRVL 

SAVE RS LAST AVAIL 

R2 



LDX 


MRCTMP 


0R 



BRR 


REMNRM 


R2 


REMMA6 

LDX 


MRCTMP 

SET UP POINTER 

02 



LDR 

R 

2, X 

GET ADDRESS 

03 



LDR 

B 

3, X 


R6 



STR 

fl 

FSTRVL 

SET FIRST AVAIL 

R7 



STR 

B 

FSTAVL+1 




* REMOVE MACRO 

NAME FROM 

TABLE 

04 


REMNRM 

LDR 

B 

4, X 

MOVE CHAR DOWN 

00 



STR 

B 

0/ X 





INX 



BUMP THE POINTER 

Ffl 



CPX 


MRCEND 

FINISHED? 

F7 



BNE 


REMNRM 





DEX 



DEC THE POINTER 

• 



DEX 







DEX 







DEX 




FR 



STX 


MRCEND 

SET NEW END 




RTS 



RETURN 



* DIVERT DI 

XX 


91 


DIVERT 

LDR 

fl 

DIVFLG 

CHECK DIV FLAG 

0D 



BEQ 


DIVER2 


00 

92 

DIVER0 

INC 


DIVFL.2 

SET MARKER 

0E 

F8 


JMP 


CLSMRC 

CLOSE MACRO 

00 

91 

DIVER1 

CLR 


DIVFLG 

CLEAR FLAGS 

00 

92 


CLR 


DIVFL2 





RTS 



RETURN 

00 

92 

DIVERS 

INC 


DIVFL2 

SET MARKER 

14 



BSR 


OPMRC 

GO OPEN MACRO 

F2 


DIVER4 

BEQ 


DIVEP1 


00 

91 


INC 


DIVFLG 

SET FLAG 

00 

55 


CLR 


LDIV 

CLEAR COUNT 




RTS 



RETURN 



* DIVERT 

- APPEND . DR XX 


91 


DIVRPP 

LDR 

R 

DIVFLG 

CHECK DIV FLAG 

El 



BNE 


DIVER0 


00 

92 


INC 


DIVFL2 

SET MARKER 

35 



BSR 


OPRPP 

OPEN FOR APPEND 

EC 



BRR 


DIVER4 
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* OPEN A MACRO SPACE 


0E4F BD 0F 8A 
0E52 96 A0 
0E54 26 01 
0E56 39 
0E5? BD 0F 35 
0E5A 26 04 
0E5C 8D 90 
0E5E 20 F? 
0E60 96 A0 
0E62 D6 A1 
0E64 8C 19 F2 
0E67 26 03 
0E69 7E 0E E0 
0E6C A7 00 
0E6E E7 01 
0E70 96 A6 
0E72 D6 A7 
0E74 A7 02 
0E76 E7 03 
0E73 08 
0E79 08 
0E7A 08 
0E7B 08 
0E7C DF FA 
0E7E DE A6 
0E80 20 IE 


0E82 BD 0F 8A 
0E85 96 A0 
0E87 26 01 
0E89 39 
0E8R BD 0F 35 
0E8D 26 D1 
0E8F EE 02 
0E91 BD 0F 64 
0E94 24 0A 
0E96 96 A6 ' 
0E98 D6 A7 
0E9A A7 00 
0E9C E7 01 
0E9E DE A6 


OPMAC 


0PMAC2 


OPMAC4 


0PMAC5 


* OPEN 
OPAPP 

0PAPP2 

0PAPP4 


JSR 


GTNAM 

LDA 

A 

MACNAM 

BNE 


0PMAC2 

RTS 



JSR 


FNDMAC 

BNE 


0PMAC4 

BSR 


REMMA4 

BRA 


0PMAC2 

LDA 

A 

MACNAM 

LDA 

B 

MACNAM+1 

CPX 


4MTEND 

BNE 


0PMAC5 

JMP 


SVSERR 

STA 

A 

0, X 

STA 

B 

1. X 

LDA 

A 

FSTAVL 

LDA 

B 

FSTAVL+1 

STA 

A 

2/ X 

STA 

B 

3; X 

INX 



INX 



INX 



INX 



STX 


MACEND 

LDX 


FSTAVL 

BRA 


SAVSX 


MACRO FOR APPEND 


JSR 


GTNAM 

LDA 

A 

MACNAM 

BNE 


0PAPP2 

RTS 

JSR 


FNDMAC 

BNE 


0PMAC4 

LDX 


2, X 

JSR 


CHKLST 

BCC 


SAVSX 

LDA 

A 

FSTAVL 

LDA 

B 

FSTAVL+1 

STA 

A 

0j X 

STA 

B 

1, X 

LDX 


FSTAVL 


* SAVE SPECIAL INDEX 


0EA0 

7D 

00 

92 SAVSX 

TST 

DIVFL2 

0EA3 

27 

06 


BEG 

SAVSX2 

0EA5 

7F 

00 

92 

CLR 

DIVFL2 

0EA8 

DF 

AE 


STX 

NXTOUT 

0EAA 

39 



RTS 



GET MACRO NAME 

PRESENT? 

LOOK FOR MACRO 

REMOVE OLD VERSION 
OPEN MACRO 
GET NAME 

END OF TABLE? 

REPORT ERROR 
SAVE NAME 

GET FIRST AVAIL 

SAVE IN TABLE 

BUMP THE POINTER 

SET NEW END 
GET LAST AVAIL 

GET MACRO NAME 

NO NAME 
FIND MACRO 

GET LOCATION 

IS IT THE LAST ONE? 

GET FIRST AVAIL 

SET NEW 

TEST.MARKER 

CLEAR MARKER 
SAVE POINTER 
RETURN 
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# 


0ERB 

OF 

RC 


SRVSX2 

STX 


NXTMRC 

SAVE POINTER 

0ERD 

39 




RTS 








* OUTPUT TO 

MACRO SPACE 


0ERE 

OF 

B0 


OUTMAC 

STX 


XMRC 

SAVE POINTER 

0EB0 

7 D 

00 

92 


TST 


0IVFL2 

TEST MARKER 

0EB3 

27 

04 



BEQ 


OUTMR0 


0EB5 

OE 

RE 



LOX 


NXTOUT 

SET POINTER 

0EB7 

20 

02 



BRR 


OUTMfll 


0EB9 

OE 

RC 


OUTMR0 

LOX 


NXTMRC 


0EBB 

60 

00 


0UTMR1 

TST 


0/ X 

TEST IF END 

0EBD 

27 

18 



BEQ 


0UTMR4 


0EBF 

81 

IF 



CMP 

R 

#*1F 

IS IT *IF? 

0EC1 

22 

0C 



BHI 


0UTM18 


0EC3 

81 

00 



CMP 

fl 

#$D 

IS IT C. R ? 

0EC5 

26 

0B 


l 

BNE 


0UTMR3 


0EC7 

70 

00 

92 


TST 


DIVFL2 

TEST MARKER 

0ECR 

27 

03 



BEQ 


0UTM18 


0ECC 

70 

00 

55 


INC 


LOIV 

BUMP OIV LINE CNT 

0ECF 

R7 

00 


0UTM18 

STR 

fl 

0, X 

PUT CHARACTER 

0ED1 

08 



0UTMA2 

INX 



BUMP THE POINTER 

0ED2 

80 

CC 


0UTMA3 

BSR 


SflV'SX 

GO SAVE X 

0ED4 

OE 

B0 



LOX 


XMRC 

RESTORE POINTER 

0ED6 

39 




RTS 




0ED7 

08 

* 


0UTMR4 

INX 



BUMP THE POINTER 

0ED8 

9C 

R4 



CPX 


LSTRVL 

LAST AVAIL? 

0EDR 

27 

04 



BEQ 


SVSERR 

ERROR? 

0EDC 

EE 

00 



LOX 


0, X 

GET POINTER 

0EDE 

20 

OB 



BRR 


OUTMRl 






♦ REPORT SVSTEM MACRO ERROR 

0EE0 

7E 

08 

4E 

SVSERR 

JMP 


MRCOVF 

REPORT OVERFLOW 





* INPUT 

TO MACRO SPACE 


0EE3 

OE 

67 


INMRC 

LOX 


MBFPNT 

SET UP POINTER 

0EE5 

R6 

00 


INMRC2 

LOR 

fl 

0, X 

GET THE CHARACTER 

0EE7 

08 




INX 



BUMP THE POINTER 

0EE8 

OF 

67 



STX 


MBFPNT 

SAVE IT 

0EER 

40 




TST 

fl 


TEST THE CHAR. 

0EEB 

26 

06 



BNE 


INMRC4 


0EED 

EE 

00 



LOX 


Qj X 

GET LINK 

0EEF 

26 

F4 



BNE 


INMRC2 


0EF1 

20 

04 



BRR 


INMAC5 


0EF3 

81 

FF 


INMRC4 

CMP 

R 

#$FF 

IS CHAR FF? 

0EF5 

27 

EE 



BEQ 


INMRC2 

• 

0EF7 

39 



INMRC5 

RTS 



RETURN 





* CLOSE 

MACRO 

SPACE 


0EF8 

70 

00 

92 

CLSMRC 

TST 


0IVFL2 

TEST MARKER 

0EFB 

27 

09 



BEQ 


CLSMR2 
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0EFD 

4F 




CLR 

A 



0EFE 

97 

91 



STA 

A 

DIVFLG 

CLEAR FLAG 

0F00 

97 

92 



STA 

A 

DIVFL2 


0F02 

DE 

RE 



LDX 


NXTOUT 

SET POINTER 

0F04 

20 

02 



BRA 


CLSMR3 


0F06 

DE 

AC 


CLSMR2 

LDX 


NXTMAC 

POINT TO NEXT MAC 

0F08 

6D 

00 


CLSMA3 

TST 


0> X 

TEST CHARACTER 

0F0A 

27 

14 



BEQ 


CLSMA4 


0F0C 

6D 

01 



TST 


1, X 

TEST NEXT 

0F0E 

27 

17 



BEQ 


CLSMR5 


0F10 

6D 

02 



TST 


2, X 

ONE MORE 

0F12 

27 

1A 



BEQ 


CLSMA6 


0F14 

6F 

00 



CLR 


0/ X 

CLEAR OUT SPACE 

0F16 

6F 

01 



CLR 


1/ X 


0F18 

6F 

02 



CLR 


2, X 


0F1A 

08 




INX 



FIX POINTER 

0F1B 

08 




INX 




0F1C 

08 




INX 




0F1D 

DF 

A6 



STX 


FSTAVL 

SET FIRST AVAIL 

0F1F 

39 




RTS 



RETURN 

0F20 

EE 

01 


CLSMA4 

LDX 


li x 

GET LINK 

0F22 

26 

E4 



BNE 


CLSMA3 


0F24 

7E 

0E 

E0 


JMP 


SVSERR 

REPORT MACRO ERROR 

0F27 

86 

FF 


CLSMR5 

LDA 

A 

#*FF 

SET UP FF 

0F29 

A7 

00 



STA 

A 

0, X 

SAVE IT 

0F2B 

08 

• 



INX 




0F2C 

20 

F2 



BRA 


CLSMA4 


0F2E 

86 

FF 


CLSMA6 

LDA 

A 

#*FF 

SET UP FF 

0F30 

A7 

00 



STA 

A 

0, X 

SAVE IT 

0F32 

08 




INX 



FIX POINTER 

0F33 

20 

F2 



BRA 


CLSMA5 






* FIND 

MACRO 



0F35 

96 

A0 


FNDMAC 

LDA 

A 

MACNAM 

CHECK NAME 

0F37 

27 

17 



BEQ 


FNDMB4 


0F39 

D6 

A1 



LDA 

B 

MACNAM+1 

GET NAME 

0F3B 

CE 

19 

72 


LDX 


#MRCTBL 

POINT TO TABLE 

0F3E 

9C 

FA 


FNDMA1 

CPX 


MACEND 

FINISHED? 

0F40 

27 

0E 



BEQ 


FNDMA4 


0F42 

fll 

00 



CMP 

A 

0.- X 

TEST 1ST CHAR. 

0F44 

26 

04 

• 


BNE 


FNDMA2 


0F46 

El 

01 



CMP 

B 

1, X 

TEST 2ND CHAR. 

0F48 

27 

08 



BEQ 


FNDMA6 


0F4fl 

08 



FNDMA2 

INX 



FIX POINTER 

0F4B 

08 




INX 




0F4C 

08 




INX 




0F4D 

08 




INX 




0F4E 

20 

EE 



BRA 


FNDMA1 

REPEAT 

0F50 

DE 

FA 


FNDMA4 

LDX 


MACEND 

SET POINTER 

0F52 

39 



FNDMA6 

RTS 



RETURN 





* FIND 

LAST 

MACRO ENTRV 
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0F53 

A6 

00 


FNDLST 

LDR R 

Qj X 

GET CHARACTER 

0F55 

27 

03 



BEQ 

FNDLS2 

IS IT ZERO? 

0F57 

08 




INX 


GO TO NEXT 

0F58 

20 

F9 



BRR 

FNDLST 


0F5A 

08 



FNDLS2 

INX 


BUMP POINTER 

0F5B 

DF 

RC 



STX 

NXTMAC 

SAVE POSITION 

0F5D 

EE 

00 



LDX 

0/ X 

PICK UP LINK 

0F5F 

26 

F2 



BNE 

FNDLST 


0F61 

DE 

RC 



LDX 

NXTMAC 

GET NEXT LOC. 

0F63 

39 




RTS 


RETURN 





* CHECK 

LAST MACRO ENTRV 


0F64 

8D 

ED 


CHKLST 

BSR 

FNDLST 

FIND LAST ENTRV 

0F66 

08 




INX 


FIX POINTER ■ 

0F67 

08 




INX 



0F68 

9C 

R6 



CPX 

FSTAVL 

IS IT FIRST? 

0F6R 

27 

04 



BEQ 

CHKLS2 


0F6C 

DE 

RC 



LDX 

NXTMAC 

GET NEXT 

0F6E 

0D 




SEC 



0F6F 

39 




RTS 


RETURN 

0F70 

09 



CHKLS2 

DEX 


BACK UP 

0F71 

09 




DEX 



0F72 

09 




DEX 



0F73 

86 

FF 



LDR A 

#SFF 

SET UP FF 

0F75 

R7 

00- 



STA A 

0, X 

PUT CHARACTER 

0F77 

R7 

01 



STA A 

1, X 


0F79 

R7 

02 



STA A 

2, X 


0F7B 

0C 




CLC 



0F7C 

39 




RTS 


RETURN 

| 




* END MACRO EXECUTION 


0F7D 

96 

8B 


MCEND 

LDR A 

MACCNT 

GET COUNT 

0F7F 

27 

06 



BEQ 

MCEND2 


0F81 

7F 

00 

66 


CLR 

MBFLG 

CLEAR FLAG 

0F84 

7C 

00 

88 


INC 

FINMAC 

SET FINISHED 

0F87 

7E 

08 

57 

MCEND2 

JMP 

FINCM 

GO FINISH 

• | 

» 




* GET TWO CHARACTER NAME 


0F8fl 

BD 

11 

D3 

GTNAM 

JSR 

LDNSKP 

GET TO NEXT 

0F8D 

BD 

11 

E6 


JSR 

CLSFV 

CLASSIFV IT 

0F90 

Cl 

02 



CMP B 

#2 


0F92 

26 

1C 



BNE 

GTNR6 


0F94 

36 




PSH A 


SAVE CHARACTER 

0F95 

08 




INX 


FIX THE POINTER 

0F96 

R6 

00 



LDR A 

0j X 

GET CHARACTER 

0F98 

BD 

11 

E6 


JSR 

CLSFV 

GO CLASSIFV • 

0F9B 

Cl 

02 



CMP B 

#2 


0F9D 

33 




PUL B 


RESTORE CHARACTER 

0F9E 

26 

10 



BNE 

GTNA6 


0FA0 

08 




INX 


ADJUST POINTER 

0FFI1 

DF 

E6 



STX 

CMNPNT 

SAVE IT 
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0FA3 

Cl 

5F 



CMP 

B 

#$5F 

LONER CASE? 

0FA5 

23 

04 



BLS 


GTNA4 


0FA7 

88 

20 



SUB 

A 

#$20 

MAKE UPPER 

0FA9 

CO 

20 



SUB 

B 

#$20 


0FAB 

D7 

A0 


GTNA4 

STA 

B 

MACNAM 

SAVE THE NAME 

0FAD 

97 

A1 



STA 

A 

MACNAM+1 


0FAF 

39 




RTS 



RETURN 

0FB0 

4F 



GTNA6 

CLR 

A 


CLEAR OUT 

0FB1 

5F 




CLR 

B 



0FB2 

20 

F7 



BRA 


GTNA4 






* SET 

TITLE 

LENGTH . LT 

+N 

0FB4 

BD 

12 

1A 

TLEN 

JSR 


CHKNUM 

CHECK FOR NUMBER 

0FB7 

24 

07 



BCC 


TLEN2 


0FB9 

96 

D8 



LDA 

A 

TLN 

GET LENGTH 

0FBB 

BD 

12 

09 


JSR 


FIXVAL 

GO FIX VALUE 

0FBE 

97 

D8 



STA 

A 

TLN 

SAVE NEW 

0FC0 

39 



TLEN2 

RTS 



RETURN , 


* DO THREE PART TITLE . TL '1'2'3' 


0FC1 

7F 

00 

B9 

TITLE 

CLR 


TPOS 

CLEAR POSITION 

0FC4 

BD 

11 

D8 


JSR 


LDNSKP 

GET TO NEXT 

0FC7 

81 

0D 



CMP 

A 

#$D 

C. R. ? 

0FC9 

27 

F5 



BEG 


TLEN2 


0FCB 

CE 

18 

BE 


LDX 


#TTLBUF 

POINT TO BUFFER 

0FCE 

7C 

00 

69 


INC 


NOCR 

SET FLAG 

0FD1 

DF 

BD 


TITLE1 

STX 


TTLPNT 

SAVE POINTER 

0FD3 

BD 

06 

8C 


JSR 


GETCHR 

GO GET CHAR. 

0FD6 

DE 

BD 



LDX 


TTLPNT 

RESTORE POINTER 

0FD8 

A7 

00 



STA 

A 

0, X 

SAVE THE CHAR. 

0FDA 

81 

0D 



CMP 

A 

#$D 

FINISHED? 

0FDC 

27 

03 



BEG 


TITL12 


0FDE 

08 




INX 



BUMP THE FOINTER 

0FDF 

20 

F0 



BRA 


TITLE1 


0FE1 

7F 

00 

69 

TITL12 

CLR 


NOCR 

CLEAR FLAG 

0FE4 

CE 

18 

0A 


LDX 


#CMNDBF 

POINT TO BUFFER 

0FE7 

A6 

B4 


TITL15 

LDA 

A 

TTLBUF-CMNDBF/ X 

0FE9 

A7 

00 



STA 

A 

0, X 

PUT CHAR. 

0FEB 

08 




INX 



GET TO NEXT 

0FEC 

81 

0D 


• 

CMP 

A 

#$D 

FINISHED? 

0FEE 

26 

F7 



BNE 


TITL15 


0FF0 

CE 

18 

0A 


LDX 


#CMNDBF 

RESTORE POINTER 

0FF3 

A6 

00 



LDA 

A 

0, X 

GET CHARACTER 

0FF5 

97 

BA 



STA 

A 

DELIM 

SAVE DELIMITER 

0FF7 

08 




INX 



BUMP THE POINTER 

0FF8 

DF 

E6 



STX 


CMNPNT 

SRVE IT 

0FFA 

CE 

18 

BE 


LDX 


#TTLBUF 

POINT TO BUFFER 

0FFD 

DF 

BD 



STX 


TTLPNT 

• 

0FFF 

86 

20 



LDA 

A 

#$20 

SET UP SPACE 

1001 

A7 

00 


TITLES 

STA 

A 

0, X 

SAVE IT 

1003 

08 




INX 



BUMP POINTER 

1004 

8C 

19 

0E 


CPX 


#TTLBUF+80 





■ 
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100? 

26 

F8 



BNE 

TITLE2 

GO COUNT TITLE 

1009 

BD 

10 

72 


JSR 

CNTTTL 

100C 

D7 

BB 



STR B 

TCNT 

SAVE COUNT 

100E 

BD 

10 

86 


JSR 

XFRTTL 

TRANSFER TITLE 

1011 

BD 

10 

72 


JSR 

CNTTTL 

COUNT TITLE 

1014 

96 

D8 



LDR ft 

TLN 

GET LENGTH 

1016 

10 




SBfi 



1017 

47 




ASR A 



1018 

97 

BC 



STR R 

MCNT 

SAVE MIDDLE COUNT 

101A 

C6 

20 



LDfi B 

#$20 

GET SPACE 

101C 

91 

BB 



CMP fl 

TCNT 


101E 

23 

0F 



BLS 

TITLES 


1020 

90 

BB 



SUB fl 

TCNT 


1022 

DE 

BD 



LDX 

TTLPNT 

RESTORE POINTER 

1024 

E7 

00 


TITLE4 

STR B 

0, X 

SAVE CHAR. 

1026 

08 




INX 


BUMP THE POINTER 

1027 

7C 

00 

B9 


INC 

TPOS 

UPDATE POSITION 

102fl 

4R 




DEC R 



102B 

26 

F7 



BNE 

TITLE4 


102D 

DF 

BD 



STX 

TTLPNT 

SAVE POINTER 

102F 

BD 

10 

86 

TITLES 

JSR 

XFRTTL 

TRANSFER TITLE 

1032 

BD 

10 

72 

TITLE6 

JSR 

CNTTTL 

COUNT TITLE 

1035 

96 

D8 



LDR fl 

TLN 

GET LENGTH 

1037 

90 

B9 



SUB fi 

TPOS 

FIX POSITION 

1039 

11 




CBR 



103A 

23 

0D' 



BLS 

TITLE? 


103C 

10 




SBR 



103D 

C6 

20 



LDR B 

#$20 

SET UP SPACE 

103F 

DE 

BD 



LDX 

TTLPNT 

SET POINTER 

1041 

E7 

00 


TITL65 

STR B 

0, X 

PUT CHAR 

1043 

08 




INX 


BUMP POINTER 

1044 

4A 




DEC fl 


DEC THE COUNT 

1045 

26 

Ffl 



BNE 

TITL65 


1047 

DF 

BD 



STX 

TTLPNT 

SAVE POINTER 

1049 

BD 

10 

86 

TITLE? 

JSR 

XFRTTL 

TRANSFER TITLE 

104C 

96 

D8 



LDR fl 

TLN 

GET LENGTH 

104E 

97 

B9 



STR fl 

TPOS 

SAVE POSITION 

1050 

£7 

1C 



BEQ 

TITLES 


1052 

D6 

4E 



LDR B 

LFM 

CHECK MARGIN 

1054 

27 

0A 



BEQ 

TITL78 


1056 

86 

20 


TITL75 

LDR R 

#$20 

SETUP SPACE 

1058 

3? 




PSH B 



1059 

BD 

14 

9F 


JSR 

OUTCHR 

OUTPUT SPACE 

105C 

33 




PUL B 



105D 

5fi 




DEC B 


DEC COUNT 

105E 

26 

F6 



BNE 

TITL75 


1060 

CE 

18 

BE 

TITL78 

LDX 

#TTLBUF 

POINT TO TITLE 

i063 

fi6 

00 


TITLES 

LDR fl 

0, X 

GET A CHARACTER 

1065 

BD 

14 

9F 


JSR 

OUTCHR 

OUTPUT IT 

1068 

08 




INX 


GO TO NEXT 

1069 

?fl 

00 

B9 


DEC 

TPOS 

DEC COUNT 

106C 

26 

F5 



BNE 

TITLE8 

REPEAT TIL DONE 

106E 

BD 

08 

99 

TITLES 

JSR 

PCRLF 

OUTPUT CR & LF 

1071 

39 




RTS 


RETURN 





" 
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1072 5F 

1073 DE E6 
1075 A6 00 
1077 91 BA 

1079 27 08 
107B 81 0D 
107D 27 04 
107F 08 

1080 5C 

1081 20 F2 ^ 
1083 DF E8 
1085 39 


* COUNT CHARACTERS IN 


CNTTTL 

CLR 

B 



LDX 


CMNPNT 

CNTTT2 

LDA 

A 

0, X 


CMP 

A 

DELIM 


BEQ 


CMTTT3 


CMP 

A 

#*D 


BEQ 


CNTTT3 


INX 




INC 

B 



BRA 


CNTTT2 

CNTTT3 

STX 


SPCPT1 


RTS 




TITLE 

CLEAR COUNT 
SET POINTER 
GET CHARACTER 
IS IT DELIMITER? 

IS IT C. R. ? 

BUMP THE POINTER 
BUMP COUNT 

SET POINTER 
RETURN 


* TRANSFER TITLE TO BUFFER 


§ 




1086 

DE 

E6 


XFRTTL 

LDX 


CMNPNT 

SET POINTER 

1083 

9C 

E8 



CPX 


SPCPT1 

FINISHED? 

108A 

27 

15 



BEQ 


BMPCP2 


108C 

A6 

00 



LDA 

A 

6j X 

GET CHARACTER 

108E 

08 




INX 



BUMP TO NEXT , 

108F 

DF 

E6 



STX 


CMNPNT 

SAVE 

1091 

DE 

BD 



LDX 


TTLPNT 

SET POINTER 

1093 

A7 

00 



STA 

A 

0, X 

PUT CHARACTER 

1095 

08 




INX 



BUMP TO NEXT 

1096 

DF 

BD 



STX 


TTLPNT 

SAVE 

1098 

7C 

00 

B9 


INC 


TPOS 

BUMP POSITION 

109B 

20 

E9 



BRA 


XFRTTL 

REPEAT 

109D 

20 

02 


XFRTT2 

BRA 


BMPCP2 






* BUMP 

COMMAND 

POINTER 


109F 

DE 

E6 


BMPCP 

LDX 


CMNPNT 

GET POINTER 

10A1 

@8 



BMPCP2 

INX 



BUMP IT 

10A2 

DF 

E6 



STX 


CMNPNT 

SAVE IT 

10A4 

39 




RTS 



RETURN 





* IF COMMAND . 

IF CONDITION . CM 

10A5 

7F 

00 

89 

IF 

CLR 


NEGT 

CLEAR FLAG 

10A8 

BD 

11 

D8 

IF1 

JSR 


LDNSKP 

FIND NEXT CHAR 

10AB 

81 

21 



CMP 

A 

! 

IS IT A '\* 

10AD 

26 

07 



BNE 


IF3 


10AF 

73 

00 

89 


COM 


NEGT 

SET NEG FLAG 

10B2 

8D 

EB 



BSR 


BMPCP 

BUMP POINTER 

10B4 

20 

F2 



BRA 


IF1 


10B6 

81 

5F 


IF3 

CMP 

A 

#$5F 

IS IT LOWER .CASE? c . 

10B8 

23 

02 



BLS 


IF35 

• 

10BA 

80 

20 



SUB 

A 

#*20 

MAKE UPPER 

10BC 

81 

4F 


IF35 

CMP 

A 

#'0 

CHECK IF ODD 

10BE 

26 

07 



BNE 


IF4 

, 

10C0 

96 

74 



LDA 

A 

PGN 

GET PAGE NUMBER 



v 
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10C2 

46 




ROR 

A 


CHECK IF ODD 

10C3 

24 

28 



BCC 


IFN 


10C5 

20 

09 



BRA 


IFV 


10C7 

81 

45 


IF4 

CMP 

A 

# y E 

EVEN? 

10C9 

26 

27 



BNE 


IF6 


10CB 

96 

74 



LDA 

A 

PGN 

GET PAGE NUMBER 

10CD 

46 




ROR 

A 


CHECK IF EVEN 

10CE 

25 

ID 



BCS 


IFN 


10D0 

96 

89 


IFV 

LDA 

A 

NEGT 

CHECK NEG. 

10D2 

26 

31 



BNE 


IF8 


10D4 

8D 

C9 


IF5 

BSR 


BMPCP 

BUMP POINTER 

10D6 

BD 

11 

D8 


JSR 


LDNSKP 

GET NEXT CHAR 

10D9 

7F 

00 

6F 


CLR 


NOFL 

CLEEAR FLAG 

10DC 

81 

2E 



CMP 

A 


IS IT PERIOD? 

10DE 

27 

06 



BEG! 


IF55 


10E0 

81 

3A 



CMP 

A 


IS IT COLON? 

10E2 

26 

0D 



BNE 


IFN2 


10E4 

97 

6F 


i 

STA 

A 

NOFL 

SET NO FLUSH 

10E6 

08 



IF55 

INX 



FIX POINTER 

10E7 

DF 

E6 



STX 


CMNPNT 

SAVE IT 

10E9 

7C 

00 

8A 


INC 


IFFLG 

SET IF FLAG 

10EC 

39 




RTS 



RETURN 

10ED 

96 

e9 


IFN 

LDA 

A 

NEGT 

CHECK NEG. 

10EF 

26 

E3 



BNE 

• 

IF5 


10F1 

39 



IFN2 

RTS 



RETURN 

10F2 

BD 

12 

1A 

IF6 

JSR 


CHKNUM 

CHECK FOR NUMBER 

10F5 

24 

0E 



BCC 


IF8 


10F7 

DE 

E6 



LDX 


CMNPNT 

GET POINTER 

10F9 

09 




DEX 



ADJUST 

10Ffl 

09 




DEX 




10FB 

DF 

E6 



STX 


CMNPNT 

SAVE 

10FD 

96 

70 



LDA 

A 

INNUM 

GET NUMBER 

10FF 

2B 

EC 



BMI 


IFN 


1101 

27 

EA 



BEQ 


IFN 


1103 

20 

CB 



BRA 


IFV 


1105 

39 



IF8 

RTS 



RETURN 


* TEST FOR NEGATIVE NUMBER 


1106 

96 

70 


TSTNEG 

LDA A 

INNUM 

GET NUMBER 

1108 

2A 

07 



BPL 

TSTNE2 


110A 

97 

72 



STA A 

SIGN 

SET SIGN 

110C 

97 

71 



STA A 

NEG 

SET NEG 

110E 

70 

00 

70 


NEG 

INNUM 

NEGATE NUM. 

1111 

39 



TSTNE2 

RTS 


RETURN 





* CHANGE TRAP 

LOCATION 

. CH -M -N 

1112 

BD 

12 

1A 

CHNG 

JSR 

CHKNUM 

CHECK FOR NUMBER 

1115 

24 

19 



BCC 

CHNG3 

. 

1117 

8D 

ED 



BSR 

TSTNEG 

NEGATIVE? 

1119 

96 

4F 



LDA A 

PGL 

GET PAGE LENGTH 

111B 

4C 




INC A 



me 

BD 

12 

09 


JSR 

FIXVAL 

FIX VALUE 





" 
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111F 

CE 

17 

D8 


LDX 


#TRflPS 

POINT TO TRAPS 

1122 

4D 




TST 

fl 



1123 

26 

01 



BNE 


CHNG2 


1125 

4C 




INC 

ft 


BUMP IT 

1126 

fll 

00 


CHNG2 

CMP 

fl 

0, X 

TEST LOCATION 

1128 

27 

23 



BED 


CHNG5 


112R 

BD 

0D 

97 


JSR 


INTRP 

BUMP POS. 

112D 

26 

F7 



BNE 


CHNG2 


112F 

39 



CHNG25 

RTS 



RETURN 

1130 

BD 

0F 

8fl 

CHNG3 

JSR 


GTNflM 

GO GET NAME 

1133 

96 

A0 



LDR 

fl 

MflCNAM 


1135 

27 

F8 



BEQ 


CHNG25 


1137 

D6 

fll 



LDfl 

B 

MfiCNflM+1 


1139 

CE 

17 

D8 


LDX 


#TRAPS 

POINT TO TRAPS 

113C 

fll 

01 


CHNG4 

CMP 

fl 

1, X 

CHECK CHAR. 

113E 

26 

04 



BNE 


CHNG45 


1140 

El 

02 



CMP 

B 

2, X 


1142 

27 

09 



BEQ 


CHNG5 


1144 

08 



CHNG45 

INX 



BUMP TO NEXT 

1145 

08 




INX 




1146 

08 




INX 




1147 

8C 

18 

08 


CPX 


#TRPEND 

END OF TABLE? 

114fi 

26 

F0 



BNE 


CHNG4 


114C 

39 




RTS 



RETURN 

114D 

DF 

F0 


CHNG5 

STX 


TEMP5 

SAVE POINTER 

114F 

BD 

12 

lfl 


JSR 


CHKNUM 

CHECK FOR NUMBER 

1152 

24 

DB 



BCC 


CHNG25 


1154 

8D 

B0 



BSR 


TSTNEG 

IS IT NEG. ? 

1156 

96 

4F 



LDfl 

fl 

PGL 

GET PAGE LENGTH 

1158 

4C 




INC 

fl 



1159 

BD 

12 

09 


JSR 


FIXVflL 

FIX VALUE 

115C 

4D 




TST 

fl 



115D 

26 

01 



BNE 


CHNG6 


115F 

4C 




INC 

fl 


BUMP IT 

1160 

DE 

F0 


CHNG6 

LDX 


TEMP5 

RESTORE POINTER 

1162 

fl7 

00 



STfl 

fl 

0, X 

PUT CHAR 

1164 

39 




RTS 



RETURN 





* SET 

NUMBER REGISTER 

NR X N 

1165 

BD 

11 

D8 

NREG 

JSR 


LDNSKP 

GET TO NEXT 

1168 

BD 

11 

E6 


JSR 


CLSFV 

CLflSSIFV IT 

116B 

Cl 

02 



CMP 

B 

#2 


116D 

26 

14 



BNE 


NREG4 


116F 

36 




PSH 

fl 


SAVE 

1170 

BD 

10 

9F 


JSR 


BMPCP 

BUMP POINTED 

1173 

BD 

12 

lfl 


JSR 


CHKNUM 

CHECK FOR NUMBER 

1176 

32 




PUL 

fl 


RESTORE 

1177 

24 

0fl 



BCC 


NREG4 


1179 

BD 

11 

R8 


JSR 


FNDNUM 

GO FIND NUMBER 

117C 

fl6 

00 



LDfl 

fl 

0, X 

GET CHARACTER 

117E 

BD 

12 

09 


JSR 


FIXVflL 

FIX VALUE 

1181 

fl7 

00 



STfl 

fl 

0, X 

SAVE IT 

1183 

39 



NREG4 

RTS 



RETURN 
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* SET ARABIC MODE . AR 


1184 

7F 

00 

C4 

ARB 

CLR 

ROM 

CLEAR ROMAN 

1187 

39 




RTS 


RETURN 





* SET FOR SMALL ROMAN 

SR 

1188 

86 

80 


SROM 

LDA A 

#$80 


118A 

97 

C4 


ROMS 

STA A 

ROM 

SET FLAG 

118C 

39 




RTS 







* SET FOR CAPITAL ROMAN 

. CR 

118D 

86 

0F 


CROM 

LDA A 

#$F 


118F 

88 

F9 



BRA 

R0M2 

SET FLAG 





* SET AUTO INCREMENT . AU N 

1191 

BD 

18 

1A 

SAUTO 

JSR 

CHKNUM 

CHECK FOR NUMBER 

1194 

84 

07 



BCC 

SAUT04 


1196 

96 

C8 



LDA A 

AUTO 

GET OLD 

1198 

BD 

18 

09 


JSR 

FIXVAL 

FIX VALUE 

119B 

97 

C8 



STA A 

AUTO 

SAVE NEW 

119D 

39 



SAUT04 

RTS ‘ 


RETURN 





♦ CLEAR 

NUMBER 

SPACE 


119E 

5F 



CLRNUM 

CLR B 



119F 

D7 

70 



STA B 

INNUM 

CLEAR OUT NUM 

11A1 

D7 

5F 



STA B 

INC 


11A3 

D7 

5A 



STA B 

GDNUM 

SET FLAGS 

11A5 

D7 

5D 



STA B 

BNUM 


11A7 

39 




RTS 


RETURN 





* FIND 1 

NUMBER 

REGISTER 


11A8 

CE 

00 

40 

FNDNUM 

LDX 

#NMREGS 

SET POINTER 

11AB 

80 

41 



SUB A 

#$41 


HAD 

DF 

60 



STX 

NUMPNT 


11AF 

9B 

61 



ADD A 

NUMPNT+1 

ADD OFFSET 

1181 

97 

61 



STA A 

NUMPNT+1 


11B3 

DE 

60 



LDX 

NUMPNT 

GET POINTER 

1185 

39 




RTS 


RETURN 





* FETCH 

NUMBER 

FROM BUFFER 

11B6 

DE 

60 


FTCHNM 

LDX 

NUMPNT 

SET POINTER 

1188 

9C 

63 



CPX 

LSTNUM 

FINISHED? 

11BA 

87 

16 



BEQ 

FTCHN2 


11BC 

A6 

00 



LDA A 

0/ X 

GET A CHAR. 

11BE 

84 

7F 



AND A 

#$7F 

MASK IT 

11C0 

08 




INX 


BUMP THE POINTER 

11C1 

DF 

60 



STX 

NUMPNT 

SAVE IT 








TSC 6880 TEXT PROCESSOR 


TSC MNEMONIC ASSEMBLER PAGE 48 


11C3 

81 

0D 



CMP A 

#$D 

C. R. ? 

11C5 

26 

08 



BNE 

FTCHN1 


11C7 

7D 

00 

69 


TST 

NOCR 

TEST FLAG 

11CA 

26 

03 



BNE 

FTCHN1 


11CC 

7E 

07 

48 


JMP 

FETCH5 

RETURN 

11CF 

7E 

07 

0A 

FTCHN1 

JMP 

FETCH3 


11D2 

7F 

00 

62 

FTCHN2 

CLR 

EXCHR 

CLEAR EXTRA CHAR. 

11D5 

7E 

06 

8C 


JMP 

GETCHR 

GO GET CHAR 





* LOAD 

POINTER 

AND SKIP 

SPACES 

11DO 

DE 

E6 


LDNSKP 

LDX 

CMNPNT 

SET POINTER 

11DA 

A6 

00 


LDNSK2 

LDA A 

0, X 

GET CHARACTER 

11DC 

81 

20 



CMP A 

#$20 

IS IT SPACE? 

11DE 

26 

03 



BNE 

LDNSK4 


11E0 

08 




INX 


BUMP TO NEXT 

11E1 

20 

F7 



BRA 

LDNSK2 


11E3 

DF 

E6 


LDNSK4 

STX 

CMNPNT 

SAVE POSITION 

11E5 

39 




RTS 


RETURN 





* CLASSIFY CHARACTER 


11E6 

5F 

- 


CLSFV 

CLR B 


CLEAR SPECIFIER 

11E7 

4D 




TST A 


TEST CHAR 

11E8 

2B 

IE 


i 

BMI 

CLSFY4 • 


IIEP) 

81 

5F 



CMP A 

#$5F 

LOWER CASE? 

11EC 

23 

06 



BLS 

CLSFY1 


11EE 

81 

7F 



CMP A 

#$7F 

TEST FOR PARITY 

11F0 

22 

16 



BHI 

CLSFY4 


11F2 

80 

20 



SUB A 

#$20 

MAKE UPPER CASE 

11F4 

81 

30 


CLSFV1 

CMP A 

#'0 

CHAR A NUMBER? 

11F6 

25 

10 



BLO 

CLSFY4 


11F8 

81 

39 



CMP A 

#'9 


UFA 

22 

02 



BHI 

CLSFY2 


11FC 

5C 




INC B 


IF SO, SET 

11FD 

39 




RTS 


RETURN 

11FE 

81 

41 


CLSFY2 

CMP A 

#'A 

IS CHAR A LETTER? 

1200 

25 

06 



BLO 

CLSFV4 


1202 

81 

5fi 



CMP A 

#"Z 


1204 

22 

02 



BHI 

CLSFY4 


1206 

C6 

02 



LDA B 

#2 

IF SO, SET 

1208 

39 



•CLSFY4 

RTS 


RETURN 





* FIX NUMBER VALUE 


1209 

D6 

70 


FIXVAL 

LDA B 

INNUM 

GET NUMBER 

1206 

7D 

00 

72 


TST 

SIGN 

TEST SIGN 

120E 

27 

08 



BEQ 

FIXVA4 


1210 

70 

00 

71 


TST 

NEG 

TEST FOR NEG. 

1213 

27 

01 



BEQ 

FIXVA3 


1215 

50 




NEG B 


NEGATE NUM 

1216 

IB 



FIXVA3 

ABA 


FIX VALUE 

1217 

39 




RTS 


RETURN 

1218 

17 



FIXVA4 

TBA 
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1219 39 RTS 

* CHECK FOR NUMBER 


121R 

4F 



CHKNUM 

CLR 8 


CLERR FLRGS 

121B 

97 

72 



ST8 8 

SIGN 


121D 

97 

71 



STR 8 

NEG 


121F 

BD 

11 

9E 


JSR 

CLRNUM 

CLERR NUMBER 

1222 

5C 




INC B 



1223 

D7 

69 



STR B 

NOCR 

SET FLRGS 

1225 

BD 

11 

D8 


JSR 

LDNSKP 

GO TO NEXT 

1228 

81 

2B 



CMP 8 

#' + 

IS IT R '«■'? 

122fl 

27 

06 



BEQ 

CHKNU2 


122C 

81 

2D 



CMP 8 


IS IT R 

122E 

26 

0B 



BNE 

CHKNU4 


1238 

97 

71 



STR 8 

NEG 

SET NEG. 

1232 

08 



CHKNU2 

INX 


BUMP THE POINTER 

1233 

DF 

E6 



STX 

CMNPNT 

SAVE IT 

1235 

8D 

IF 



BSR 

PRNUM 

PROCESS NUMBER 

1237 

24 

0D 



BCC 

CHKNU6 


1239 

20 

07 



BR8 

CHKNU5 


123B 

08 



CHKNU4 

INX 

FIX POINTER 

123C 

DF 

E6 



STX 

CMNPNT 

SAVE IT 

123E 

8D 

32 



BSR 

PRNU28 

PROCESS NUM. 

1240 

24 

04 



BCC 

CHKNU6 


1242 

8D 

0& 


CHKNU5 

BSR 

CLRTHM 

CLEAR FLAGS 

1244 

0D 




SEC 



1245 

39 




RTS 


RETURN 

1246 

8D 

07 


CHKNU6 

BSR 

CLRTHM 

CLERR FLAGS 

1248 

DE 

E6 



LDX 

CMNPNT 

SET POINTER 

124A 

09 




DEX 



124B 

DF 

E6 



STX 

CMNPNT 


124D 

0C 




CLC 



124E 

39 




RTS 


RETURN 





* CLERR 

FLAGS 



124F 

7F 

00 

62 

CLRTHM 

CLR 

EXCHR 

CLEAR THEM 

1252 

7F 

00 

69 


CLR 

NOCR 


1255 

39 




RTS 


RETURN 





* PROCESS NUMBER 


1256 

97 

72 


PRNUM 

STR 8 

SIGN 

CLERR SIGN 

1258 

BD 

11 

9E 

PRNUM2 

JSR 

CLRNUM 

CLERR NUMBER 

125B 

5C 




INC B 



125C 

D7 

69 



STR B 

NOCR 

SET FLAGS 

125E 

7F 

00 

5F 

PRNU27 

CLR 

INC 


1261 

7C 

00 

75 


INC 

P8SCHR 


1264 

BD 

06 

8C 


JSR 

GETCHR 

GET NEXT CHAR. 

1267 

7D 

00 

7F 


TST 

NOEXP 

DO EXPRESSIONS? 

1268 

27 

06 



BEQ 

PRNU28 


126C 

7F 

00 

7F 


CLR 

NOEXP 


126F 

7E 

13 

19 


JMP 

PRNU82 

JUMP AHEAD 


■ 
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TSC 6800 

TEXT PROCESSOR 



1272 

BD 

11 

E6 

PRNU23 

JSR 


1275 

Cl 

01 



CMP 

B 

1277 

25 

05 


PRNUM3 

BLO 


1279 

27 

51 



BEQ 


127B 

7E 

13 

07 


JMP 


127E 

70 

00 

70 

PRNU31 

TST 


1281 

27 

05 



BEQ 


1283 

36 




PSH 

fl 

1284 

96 

70 



LDR 

fl 

1286 

20 

53 



BRfl 


1288 

7F 

00 

70 

PRNU32 

CLR 


128B 

81 

23 



CMP 

fl 

128D 

27 

18 



BEQ 


128F 

81 

2B 



CMP 

fl 

1291 

26 

04 



BNE 


1293 

97 

5B 



STfl 

fl 

1295 

20 

C7 



BRfl 


1297 

81 

2D 


PRNU35 

CMP 

fl 

1299 

26 

04 



BNE 


129B 

97 

5C 



STfl 

fl 

129D 

20 

BF 



BRfl 


129F 

81 

25 


PRNU37 

CMP 

fl 

12A1 

26 

6C 



BNE 


12fl3 

96 

74 



LDfl 

fl 

12fl5 

20 

39 



BRfl 


12fl7 

7C 

00 

75 

PRNUM4 

INC 


12flfl 

BD 

06 

8C 


JSR 


12AD 

BD 

11 

E6 


JSR 


12B8 

Cl 

02 



CMP 

B 

12B2 

26 

10 



BNE 


12B4 

BD 

11 

R8 


JSR 


12B7 

R6 

00 



LDfl 

fl 

12B9 

7D 

00 

5F 


TST 


12BC 

27 

22 



BEQ 


12BE 

9B 

C2 



ADD 

fl 

12C8 

fl? 

00 



STfl 

fl 

12C2 

20 

1C 



BRfl 


12C4 

81 

2B 


PRNU45 

CMP 

fl 

12C6 

26 

47 



BNE 


12C8 

97 

5F 



STfl 

fl 

12CR 

20 

DB 



BRfl 


12CC 

80 

30 


PRNUM5 

SUB 

fl 

12CE 

36 




PSH 

fl 

12CF 

D6 

70 



LDfl 

B 

12D1 

58 




flSL 

B 

12D2 

58 




flSL 

B 

12D3 

DB 

70 



ADD 

B 

12D5 

58 




flSL 

B 

12D6 

32 




PUL 

fl 

12D7 

IB 




flBfl 


12D8 

97 

70 



STfl 

fl 

12Dfl 

7C 

00 

5R 


INC 


12DD 

7E 

12 

5E 


JMP 


12E0 

D6 

5C 


PRNUM6 

LDfl 

B 


CLSFV 

#1 

PRNU31 

PRNUM5 

PRNU73 

GO CLASSIFY 

INNUM 

PRNU32 

TEST NUMBER 

INNUM 

PRNUM6 

GET NUMBER 

INNUM 

CLEAR NUMBER 

#'# 

PRNUM4 

CHECK FOR 

#' + 

PRNU35 

IS IT ' + "> 

ADD 

PRNU27 

SET FOR ADD 

#'- 

PRNU37 

IS IT '-'? 

SUB 

PRNU27 

SET FOR SUBTRACT 

*'V. 

PRNUM8 

IS IT 'Y."> 

PGN 

PRNUM6 

GET PAGE NUMBER 

PflSCHR 

SET FLAG 

GETCHR 

GET CHARACTER 

CLSFV 

#2 

FRNU45 

CLASSIFY IT 

FNDNUM 

GO FIND NUMBER 

0, X 

GET VALUE 

INC 

PRNUM6 

INCREMENT? 

AUTO 

ADD IN AUTO 

0/ X 

PRNUM6 

SAVE NEW 

#' + 

PRNUM8 

IS IT '+'? 

INC 

PRNUM4 

SET INC. 

#$30 

BIAS NUMBER 

INNUM 

GET NUM 

ADJUST 

INNUM 

ADD IT IN * 

RESTORE 

INNUM 

SAVE NEW VALUE 

GDNUM 

SET GOOD 

PRNU27 

REPEAT 

SUB 

SUBTRACT? 








© 




,4 'r^* 
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TEXT PROCESSOR 



TSC MNEMONIC ASSEMBLE 

12E2 

27 

06 



BEQ 


PRNU65 


12E4 

16 




TAB 



DO SUBTRACT 

12E5 

96 

5D 



LDR 

fl 

BNUM 


12E7 

10 




SBfl 




12E8 

20 

06 



BRR 


PRNUM7 


12ER 

D6 

5B 


PRNU65 

LDR 

B 

ADD 

ADDITION? 

12EC 

27 

02 



BEQ 


PRNUM7 


12EE 

9B 

5D 



ADD 

fl 

BNUM 

DO ADD 

12F0 

97 

5D 


PRNUM7 

STR 

fl 

BNUM 

SAVE NUMBER 

12F2 

7F 

83 

5B 


CLR 


ADD 

CLEAR FLAGS 

12F5 

7F 

00 

50 


CLR 


SUB 


12F8 

7C 

00 

5fl 


INC 


GDNUM 

SET GOOD 

12FB 

7D 

00 

70 


TST 


INNUM 

TEST NUMBER 

12FE 

26 

03 



BNE 


PRNU72 


1308 

7E 

12 

5E 


JMP 


PRNU27 


1303 

32 



PRNU72 

PUL 

fl 


RESTORE CHAR 

1304 

7E 

12 

88 


JMP 


PRNU32 


1307 

7D 

00 

70 

PRNU73 

TST 


INNUM 

TEST NUMBER 

130A 

27 

03 



BEQ 


PRNUM8 


1300 

36 




PSH 

fl 



130D 

20 

D1 



BRR 


PRNUM6 


130F 

7F 

00 

7F 

PRNUM3 

CLR 


NOEXP 

CLEAR FLAG 

1312 

7D 

00 

5fl 


TST 


GDNUM 

TEST GOOD 

1315 

26 

02 



BNE 


PRNU82 


1317 

0C 




CLC 



SET CONDITION 

1318 

39 

• 



RTS 



RETURN 

1319 

97 

62 


PRNU82 

STR 

fl 

EXCHR 

SAVE EXTRA CHAR 

131B 

CE 

01 

25 


LDX 


#NUM 

POINT TO NUMBER 

131E 

96 

5D 



LDR 

fl 

BNUM 

GET NUMBER 

1320 

97 

70 



ST A- 

fl N 

.INNUM 


1322 

27 

04 



BEQ 


BTOD 


1324 

D6 

04 



LDR 

B 

ROM 

ROMAN OR ARABIC 

1326 

26 

37 



BNE 


BTOROM 






* BINARY TO 

ASCII ARABIC 


1328 

5F 



BTOD 

CLR 

B 



1329 

81 

64 


BT0D1 

CMP 

R 

#100 

NUM > 100? 

132B 

25 

05 



BLO 


BT0D2 


132D 

80 

64 



SUB 

fl 

#100 

SUB OFF 100 

132F 

50 




INC 

B 


BUMP NUMBER 

1330 

20 

F7 



BRR 


BT0D1 


1332 

5D 



BT0D2 

TST 

B 


ANY VET? 

1333 

27 

06 



BEQ 


BT0D3 


1335 

CB 

30 



ADD 

B 

#$38 

SET HUNDREDS 

1337 

E7 

00 



STR 

B 

0/ X 

SAVE 

1339 

08 




INX 



GO TO NEXT . 

133A 

5F 




CLR 

B 


CLEAR REGISTER 

133B 

81 

0R 


BT0D3 

CMP 

fl 

#10 

NUMBER > 10 

133D 

25 

05 



BLO 


BT0D4 


133F 

80 

0fl 



SUB 

fl 

#10 

SUB VALUE 

1341 

50 




INC 

B 


BUMP NUMBER 

1342 

20 

F7 



BRR 


BT0D3 


1344 

5D 



BT0D4 

TST 

B 


ANY? 










. ,3 


TSC 6800 

TEXT PROCESSOR 



TSC 

MNEMONIC ASSEMBLER 

1345 

27 

05 


BEQ 


BT0D45 


1347 

CB 

30 


RDD 

B 

4*30 

ADD BIAS 

1349 

E7 

00 


STR 

B 

O, X 

SAVE TENS 

134B 

08 



INX 



BUMP TO NEXT 

1340 

8B 

30 

BT0D45 

ADD 

A 

#$30 

RDD IN BIAS 

134E 

R7 

00 


STR 

fl 

0/ X 

SAVE ONES 

1350 

08 



INX 



BUMP POINTER 

1351 

96 

62 

BT0D5 

LDfl 

fl 

EXCHR 

GET EXTRA 

1353 

A7 

00 


STR 

fl 

0, X 

SAVE IT 

1355 

08 



INX 



BUMP TO NEXT 

1356 

DF 

6o 


STX 


LSTNUM 

SAVE POSITION 

1358 

CE 

01 25 


LDX 


#NUM 

POINT TO NUMBER 

135B 

DF 

60 


STX 


NUMPNT 

• 

135D 

0D 



SEC 




135E 

39 



RTS 



RETURN 




* BINRRV TO 

ASCII ROMAN 

135F 

C6 

43 

BTOROM 

LDfl 

B 

#'C 

SET HUNDREDS 

1361 

81 

64 

BT0R01 

CMP 

fl 

4100 

NUMBER > 100? 

1363 

25 

07 


BLO 


BT0R02 


1365 

80 

64 


SUB 

fl 

#100 

SUBTRACT OFF 

1367 

E7 

00 


STR 

B 

0, X 

SET 100 

1369 

08 



INX 



BUMP TO NEXT 

136A 

20 

F5 


BRR 


BT0R01 


136C 

81 

5A 

BT0R02 

CMP 

fl 

#90 

CHECK FOR 90 

136E 

25 

0A 


BLO 


BT0R03 


1370 

80 

5fl 


SUB 

fl 

#90 

SUBTRACT OFF 

1372 

E7 

01 


STR 

B 

1, X 

PUT CHARACTER 

1374 

C6 

58 


LDfl 

B 

4'X 

SET TENS 

1376 

E7 

00 


STR 

B 

0> X 

SAVE IT 

1378 

08 



INX 



BUMP TO NEXT 

1379 

08 



INX 




137fl 

81 

32 

BT0R03 

CMP 

fl 

#50 

CHECK FOR FIFTV 

137C 

25 

07 


BLO 


BT0R04 


137E 

80 

32 


SUB 

fl 

456 

SUBTRACT OFF 

1380 

06 

40 


LDfl 

B 

4'L 

SET 'L' 

1382 

E7 

00 


STR 

B 

0* X 

SAVE IT 

1384 

08 



INX 



BUMP THE POINTER 

1385 

81 

28 

BT0R04 

CMP 

fl 

#40 

CHECK FOR 40 

1387 

25 

0C 


BLO 


BT0R05 


1389 

80 

28 


SUB 

fl 

440 

SUBTRACT OFF 

138B 

06 

58 


LDR 

B 

#'X 

SET TEN 

138D 

E7 

00 


STR 

B 

0, X 

SAVE IT 

138F 

C6 

4C 


LDR 

B 

#'L 

SET 50 

1391 

E7 

01 


STR 

B 

X 

SAVE IT 

1393 

08 



INX 



BUMP TO NEXT 

1394 

08 



INX 




1395 

C6 

58 

BT0R05 

LDfl 

B 

#'X 

SET UP 'X' 

1397 

81 

0fl 


CMP 

fl 

#10 

CHECK TENS 

1399 

25 

07 


BLO 


BT0R06 


139B 

80 

0fi 


SUB 

ft 

#10 

SUBTRACT OFF 

139D 

E7 

00 


STR 

B 

0, X 

SAVE 

139F 

08 



INX 



BUMP POINTER 


€ 

f 


1 
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13R0 

20 

F3 



BRR 


BT0R05 


13A2 

81 

09 


BT0R06 

CMP 

R 

#9 

CHECK IF 9 

13R4 

25 

0fl 



BLO 


BT0R65 


13A6 

80 

09 



SUB 

R 

#9 

SUBTRACT 9 

13R8 

E7 

01 



STR 

B 

1* X 

SAVE CHARACTER 

13RR 

C6 

49 



LDR 

B 

#'I 


13RC 

E7 

00 



STR 

B 

0, X 


13RE 

08 




INX 



GET TO NEXT 

13RF 

08 




INX 




1380 

81 

05 


BT0R65 

CMP 

R 

#5 

CHECK FOR 5 

13B2 

25 

07 



BLO 


BT0R07 

• 

13B4 

C6 

56 



LDR 

B 

#'V 

SET UP 'V' 

13B6 

E7 

00 



STR 

B 

0j X 

SAVE IT 

13B8 

08 




INX 



BUMP POINTER 

13B9 

80 

05 



SUB 

fl 

#5 

FIX VALUE 

13BB 

81 

04 


BT0R07 

CMP 

fl 

#4 

CHECK FOR 4 

13BD 

25 

0C 



BLO 


BT0R08 


13BF 

80 

04 



SUB 

fl 

#4 

SUBTRACT OFF 

13C1 

06 

49 



LDR 

B 

#'I 

SET UP 'I' 

13C3 

E7 

00 



STR 

B 

0, X 

SAVE CHARACTER 

13C5 

C6 

56 



LDR 

B 

#'V 


13C? 

E7 

01 



STR 

B 

1j X 

SAVE 'V' 

13C9 

08 




INX 



BUMP POINTER 

13CR 

08 




INX 




13CB 

C6 

49 


BT0R08 

LDR 

B 

H 

\ 

* 


13CD 

4D 

* 



TST 

fl 


TEST ONES 

13CE 

27 

06 



BEQ 


BT0R09 


13D0 

E7 

00 



STR 

B 

0, X 

SAVE I'S 

13D2 

08 




INX 




13D3 

4R 




DEC 

fl 


DONE? 

13D4 

20 

F5 



BRR 


BT0R08 


13D6 

DF 

63 


BT0R09 

STX 


LSTNUM 

SAVE POINTER 

13D8 

96 

C4 



LDR 

R 

ROM 

CHECK IF SMALL 

13DR 

2fl 

0E 



BPL 


BTODON 


13DC 

CE 

01 

25 


LDX 


#NUM 

RESET POINTER 

13DF 

R6 

00 


BT0R92 

LDR 

fl 

0, X 

GET CHARACTER 

13E1 

8B 

20 



ADD 

R 

#*20 

MAKE SMALL 

13E3 

R7 

00 



STR 

fl 

0, X 

PUT BACK 

13E5 

08 




INX 



BUMP TO NEXT 

13E6 

9C 

63 



CPX 


LSTNUM 

FINISHED? 

13E8 

26 

F5 



BNE 


BT0R92 


13ER 

7E 

13 

51 

BTODON 

JMP 


BT0D5 






* PUSH 

X ONTO 

STACK 


13ED 

32 



PUSHX 

PUL 

R 


GET RETURN ADR. 

13EE 

33 




PUL 

B 



13EF 

97 

F4 



STR 

fl 

RETREG 

SAVE IT 

13F1 

D7 

F5 



STR 

B 

RETREG+1 


13F3 

DF 

F6 



STX 


INDEX 

SAVE X 

13F5 

96 

F6 



LDR 

fl 

INDEX 

GET PART X 

13F7 

D6 

F7 



LDR 

B 

INDEX+1 


13F9 

36 




PSH 

R 


PUSH ON STACK 

13FR 

37 




PSH 

B 











*;/• ■ 
Vi.. 
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13FB 

DE 

F4 


PUSH4 

LDX 


RETREG 

GET RETURN 

13FD 

6E 

00 



JMP 


0, X 

RETURN 





* PULL 

X FROM 

STACK 


13FF 

32 



PULLX 

PUL 

B 

GET RETURN ADR. 

1460 

33 




PUL 

B 



1401 

97 

F4 



STB 

B 

RETREG 

SAVE IT 

1403 

D? 

F5 



STB 

B 

RETREG+1 


1405 

33 




PUL 

B 


PULL X 

1406 

32 




PUL 

B 



140? 

97 

F6 



STB 

fl 

INDEX 

SAVE X 

1409 

D7 

F7 



STB 

B 

INDEX+1 


140B 

96 

F4 



LDB 

B 

RETREG 

GET RETURN ADR. 

140D 

D6 

F5 



LDfi 

B 

RETREG+1 


140F 

3? 




PSH 

B 


PUSH BACK ON 

1410 

36 




PSH 

B 



1411 

DE 

F6 



LDX 


INDEX 

LOAD UP X 

1413 

39 




RTS 



RETURN 





* FIX WIDTH 




1414 

96 

B4 


FIXWD 

LDB 

B 

TLLN 

GET TEMP LENGTH 

1416 

9B 

4B 



ADD 

fl 

LLN 

ADD TO LENGTH 

1418 

97 

4B. 



STB 

fl 

LLN 

SAVE NEW 

141B 

96 

B3 



LDB 

B 

TIND 

GET TEMP IND. 

141C 

9B 

48 



ADD 

fl 

IND 

ADD TO INDENT 

141E 

9? 

48 



STB 

fl 

IND 

SAVE NEW 

1420 

96 

B2 



LDB 

B 

TSIN 

GET TEMP SIND. 

1422 

9B 

7C 



ADD 

fl 

SIN 

ADD TO SIND. 

1424 

97 

7C 



STB 

B 

SIN 

SAVE NEW 

1426 

4F 




CLR 

B 


CLEAR OLD VALUES 

1427 

97 

B4 



STB 

B 

TLLN 


1429 

97 

B3 



STB 

fl 

TIND 


142B 

97 

B2 



STB 

B 

TSIN 


142D 

96 

4B 



LDB 

B 

LLN 

GET LINE LENGTH 

142F 

90 

48 



SUB 

fl 

IND 

SUB INDENT 

1431 

90 

7C 



SUB 

fl 

SIN 

SUB S IND. 

1433 

81 

0E 



CMP 

B 

#14 

LESS THAN 15? 

1435 

22 

02 



BHI 


FIXWD2 


143? 

86 

0F 


FIXWD1 

LDB 

B 

#15 

FORCE TO 15 

1439 

81 

96 


FIXWD2 

CMP 

B 

#150 

>150? 

143B 

23 

02 



BLS 


FIXWD3 


143D 

86 

96 



LDB 

fl 

#150 


143F 

97 

C6 


FIXWD3 

STB 

B 

WIDTH 

SAVE NEW WIDTH 

1441 

7E 

06 

46 


JMP 


FIXBFE 

GO FIX 





* GET 

INPUT 

CHARACTERS 


1444 

CE 

1? 

74 

GIBUF 

LDX 


#SBUF 

POINT TO BUFFER 

1447 

5F 




CLR 

B 


CLEAR COUNT 

1448 

37 



GIBUF2 

PSH 

B 



1449 

BD 

02 

06 


JSR 


INCH 

GET CHARACTER 

144C 

33 




PUL 

B 








" 
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144D 

81 

18 



CMP fl 

#$18 

CONTROL X? 

144F 

27 

18 



BEQ 

GIBUF6 


1451 

81 

0D 



CMP R 

#$D 

C. R. ? 

1453 

27 

0fl 



BEQ 

GIBUF4 


1455 

81 

IF 



CMP fl 

#$1F 

CONTROL CHAR. ? 

1457 

23 

EF 



BLS 

GIBUF2 


1459 

5C 




INC B 


BUMP THE COUNT 

145R 

R7 

00 



STfl fl 

Qj X 

PUT CHARACTER 

145C 

08 




INX 


BUMP THE POINTER 

145D 

20 

E9 



BRA 

GIBUF2 

REPEAT 

145F 

R7 

63 


GIBUF4 

STfl fl 

0> X 

PUT CHARACTER 

1461 

CE 

17 

74 


LDX 

#SBUF 

FIX POINTER 

1464 

DF 

E6 



STX 

CMNPNT 

SAVE IT 

1466 

D7 

46 



STfl B 

GCNT 

SAVE COUNT 

1468 

39 




RTS 


RETURN 

1469 

CE 

15 

62 

GIBUF6 

LDX 

#QUSTR 

POINT TO STRING 

146C 

BD 

14 

90 


JSR 

PSTRNG 

OUTPUT IT 

146F 

20 

D3 



BRA 

GIBUF 






* TEST FOR BREAK 


1471 

B6 

80 

04 

TSTBRK 

LDfl fl 

$8004 

GET STATUS 

1474 

2fl 

01 



BPL 

TSTBR2 


1476 

39 




RTS 


RETURN 

1477 

B6 

80 

04 

TSTBR2 

LDfl fl 

$8004 

GET STATUS 

147R 

2fl 

FB 



BPL 

TSTBR2 

WAIT TIL CLEAR 

147C 

01 




NOP 


FOR EXPANSION 

147D 

01 




NOP 



147E 

01 




NOP 



147F 

CE 

15 

92 


LDX 

#BRKSTR 

POINT TO STRING 

1482 

7E 

0C 

D8 


JMP 

STOP1 

OUTPUT IT 





* OUTPUT fl C. R. 

AND L. F. 


1485 

DF 

F8 


CRLF 

STX 

XTEMP 

SAVE X REG. 

1487 

CE 

15 

43 


LDX 

#CRLFST 

POINT TO STRING 

148R 

BD 

14 

92 


JSR 

PDflTfl 

OUTPUT IT 

148D 

DE 

F8 



LDX 

XTEMP 

RESTORE X 

148F 

39 



CRLF5 

RTS 


RETURN 





* PRINT 

STRING 



1498 

8D 

F3 


PSTRNG 

BSR 

CRLF 

OUTPUT CR & LF 





* PRINT 

DATA 



1492 

R6 

00 


PDRTR 

LDfl fl 

0> X 

GET fl CHARACTER 

1494 

81 

04 



CMP fl 

#4 

IS IT TERM? 

1496 

27 

06 



BEQ 

PDflTfl2 


1498 

BD 

02 

03 


JSR 

OUTCH 

OUTPUT IT 

149B 

08 




INX 


MOVE TO NEXT 

149C 

20 

F4 



BRfl 

PDflTfl 

REPEAT 

149E 

39 



PDRTR2 

RTS 


RETURN 
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* OUTPUT CHARACTER 


149F 

D6 

91 


OUTCHR 

LDA 

B 

DIVFLG 

DIVERTING? 

14A1 

27 

06 



BEQ 


0UTCH2 


14A3 

7C 

00 

92 


INC 


DIVFL2 

SET FLAG 

14A6 

7E 

0E 

AE 


JMP 


OUTMAC 

OUT TO MACRO 

14A9 

D6 

79 


0UTCH2 

LDA 

B 

NOOUT 

DO OUTPUT? 

14AB 

27 

01 



BEQ 


0UTCH3 


14AD 

39 




RTS 



RETURN 

14AE 

84 

7F 


0UTCH3 

AND 

A 

#*7F 

MASK CHAR. 

14B0 

D6 

93 



LDA 

B 

PRNTR 

TO PRINTER? 

14B2 

26 

03 



BNE 


0UTCH4 


14B4 

7E 

02 

03 


JMP 


OUTCH 

OUT TO TERM 

14B? 

7E 

02 

0F 

0UTCH4 

JMP 


POUCH 

OUT TO PRINTER 





* INPUT 

A CHARACTER 


14BA 

96 

FC 


INCHR 

LDA 

A 

CRF 

CHECK FLAG 

14BC 

27 

0D 



BEQ 


INCH15 


14BE 

37 




PSH 

B 



14BF 

D6 

9D 



LDA 

B 

JNKCNT 

GET JUNK COUNT 

14C1 

27 

05 



BEQ 


INCHR1 


14C3 

8D 

06 


INCHR0 

BSR 


INCH15 

SKIP JUNK 

14C5 

5A 




DEC 

B 


DEC COUNT 

14C6 

26 

FB 



BNE 


INCHR0 


14C8 

D7 

FC 


INCHR1 

STA 

B 

CRF 


14CA 

33 




PUL 

B 



14CB 

DF 

F8 


INCH15 

STX 


XTEMP 

SAVE X REG. 

14CD 

DE 

9B 



LDX 


NXTRAM 

POINT TO NEXT 

14CF 

9C 

99 



CPX 


LSTRAM 

FINISHED? 

14D1 

27 

0E 



BEQ 


INCHR4 


14D3 

A6 

00 



LDA 

A 

0, X 

GET CHARACTER 

14D5 

08 




INX 



BUMP TO NEXT 

14D6 

DF 

9B 


INCHR2 

STX 


NXTRAM 

SAVE POSITION 

14D8 

81 

0D 



CMP 

A 

#$D 

IS IT C. R. ? 

14DA 

26 

02 



BNE 


INCHR.3 


14DC 

97 

FC 



STA 

A 

CRF 

SET FLAG 

14DE 

DE 

F8 


INCHR3 

LDX 


XTEMP 

RESTORE POINTER 

14E0 

39 




RTS 



RETURN 

14E1 

86 

1A 


INCHR4 

LDA 

A 

#S1A 

SET UP EOF 

14E3 

20 

FI 



BRA 


INCHR2 



14EB 20 28 
14ED 54 53 
14EF 43 20 


€ 


* REWIND FILE <IN RAM> 


14E5 

DE 

97 

RWND LDX 

FSTRAM 

GET FIRST 

14E7 

DF 

9B 

STX 

NXTRAM 

MAKE NEXT 

14E9 

39 


RTS 


RETURN 




★ STRINGS 



14EA 

20 


CPRSTR FCC 

' TSC 

TEXT PROCES 
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14F1 54 45 
14F3 58 54 
14F5 28 50 
14F? 52 4F 
14F9 43 45 
14FB 53 53 
14FD 4F 52 
14FF 04 

1500 43 

1501 4F 50 
1503 59 52 
1505 49 4? 
1507 48 54 
1509 20 28 
150B 43 29 
150D 20 31 
150F 39 37 
1511 37 20 
1513 42 59 
1515 20 54 
1517 53 43 
1519 04 
151R 44 
151B 41 54 
151D 45 20 
151F 28 4D 
1521 4D 3FI 
1523 44 44 
1525 3fl 59 
1527 59 29 
1529 3F 20 
152B 04 
152C 54 
152D 59 50 
152F 45 20 
1531 50 20 
1533 46 4F 
1535 52 20 
1537 50 52 
1539 49 4E 
153B 54 45 
153D 52 2E 
153F 2E 2E 

1541 20 

1542 04 

1543 0D 

1544 0fl 00 
1546 00 00 
1548 00 04 
154ft 50 
154B 41 47 
154D 45 20 
154F 4C 49 
1551 4D 49 


FCB 

FCC 


FCB 

DflTSTR FCC 


FCB 

PRQU FCC 


FCB 

CRLFST FCB 


PGSTR FCC 
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4 

'COPYRIGHT <C> 1977 BV TSC' 



4 


'DftTE <MM:DD:YV>? ' 


4 

'TYPE P FOR PRINTER. . . ' 


4 

$D* $fl, 0/ 0/ 0> 0< 4 


'PfiGE LIMITS? ' 
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1553 

1555 

155? 

1558 

1559 
1558 
1550 
155E 

1560 

1561 

1562 

1563 

1564 

1565 

1566 
156? 
1569 
156B 
156D 
156F 
1571 
1573 
1575 

1577 

1578 

1579 
15?fl 
157C 
157E 
1588 
1582 
1584 
1586 
1588 
158R 
158C 
158E 

1590 

1591 

1592 

1593 
1595 
1597 
1599 
159B 
159D 
159F 
15R1 
15R3 


54 53 
3F 20 
04 
07 

53 

54 4F 
50 2E 
2E 2E 
07 

04 

3F 

20 

0 ? 

94 

4C _ 
49 4E 
45 53 
20 50 
45 52 
20 53 
43 52 
45 45 
4E 3F 
20 
04 
2fl 

2fl 2R 
2fl 20 
4D 41 
43 52 
4F 20 
4F 56 

45 52 

46 4C 
4F 57 
20 2R 
2fl 2R 
2fl 

04 

2R 

20 50 
52 4F 

47 52 
41 40 
20 42 
52 45 
41 4B 
20 2fl 
04 


FCB 4 

STPSTR FCB 7 

FCC '5 


>TOP. . . 


. -FCB 
QUSTR FCC 
FCB 

LPPSTR FCC 


7, 4 
'? ' 

7> 4 

'LINES PER SCREEN? " 


FCB 4 

OVFSTR FCC '***+ MACRO OVERFLOW ****' 


FCB 4 

BRKSTR FCC '* PROGRRM BRERK *' 


15R4 39 
15R5 


FCB 4 

♦PRINTER ROUTINES 

PRNIT RTS 
RMB 


** REPLRCE WITH OWN 


31 
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15C4 39 

15C5 

PROUCH RTS 

RMB 31 

* BUFFER STORAGE AREA 

15E4 

LINBUF 

RMB 

155 

167F 

EXTBUF 

RMB 

45 

16AC 

LINBU2 

RMB 

200 

1774 

S8UF 

RMB 

100 

17D8 

TRAPS 

RMB 

48 

1808 

TRPEND 

RMB 

2 

188A 

CMNDBF 

RMB 

180 

18BE 

TTLBUF 

RMB 

180 

1972 

MACTBL 

RMB 

128 

19F2 

MTEND 

RMB 

2 

19F4 

MACROS 

RMB 

1534 

1FF2 

LMACRO 

RMB 

2 

1FF4 

LAST 

RMB 

1 

1FF5 

USER 

EQU 

* 


END 

NO ERROR<S> DETECTED 


SYMBOL TABLE: 


ADD 

005B 

ADJS35 

ADJSP4 

0451 

ADJSP5 

ADJSP9 

0483 

ADJSPC 

ATL 

0D52 

ATL1 

ATL4 

0D80 

ATL45 

BMPCP2 

10A1 

BNUM 

BTOD1 

1329 

BT0D2 

BT0D5 

1351 

BTODON 

BT0R02 

136C 

BT0R03 

BT0R07 

13BB 

BT0R08 

BUFPNT 

00DA 

CALMA2 

CAPIT2 

07CB 

CENTE2 

CHKLS2 

0F70 

CHKLST 

CHKNU6 

1246 

CHKNUM 

CHNG3 

1130 

CHNG4 

CLRGET 

0689 

CLRNUM 

CLRTHM 

124F 

CLSFY 

CLSMA2 

0F06 

CLSMA3 

CLSMAC 

0EF8 

CMFLG 

CNJ 

00CE 

CNTFLG 

CNTRIT 

0619 

CNTSP2 

CNTTT3 

1083 

CNTTTL 

COMAN3 

0805 

C0MAN4 

C0MAN8 

083C 

C0MAN9 

CRLF 

1485 

CRLF5 

DAY 

0043 

DEFM35 

DEFMA4 

0DCE 

DEFMA5 


0447 

ADJS55 

0466 

045C 

ADJSP6 

046A 

0432 

APMAC 

0DDC 

0D67 

ATL2 

0D6A 

0D88 

ATL5 

0D8F 

005D 

BRAK 

0924 

1332 

BT0D3 

133B 

13EA 

BT0R65 

13B0 

137A 

BT0R04 

1385 

13CB 

BT0R09 

13D6 

0876 

CALMAC 

0871 

0C37 

CENTE4 

0C3B 

0F64 

CHKNU2 

1232 

121R 

CHNG 

1112 

113C 

CHNG45 

1144 

119E 

CLRSP2 

02AC 

11E6 

CLSFV1 

11F4 

0F08 

CLSMA4 

0F20 

0065 

CMNDBF 

180A 

00D4 

CNTRI4 

062D 

0610 

CNTSP3 

0618 

1072 

C0LCN2 

0083 

0815 

C0MAN5 

0818 

0848 

COMAND 

07DF 

148F 

CRLFST 

1543 

0DC2 

DEFM45 

0DD1 

0DDB 

DEFMAC 

0D9E 


** REPLACE WITH OWN 


ADJSP2 

0438 

ADJSP3 

ADJSP7 

0471 

ADJSP8 

ARB 

1184 

ATFLG 

ATL3 

0077 

ATL35 

AUTO 

00C2 

BMPCP 

6RKSTR 

1592 

BTOD 

BT0D4 

1344 

BT0D45 

BT0R92 

13DF 

BTOROl 

BT0R05 

1395 

BT0R06 

BTOROM 

135F 

BUFEND 

CAP 

00B7 

CAPIT 

CENTER 

0C24 

CENTJ 

CHKNU4 

123B 

CHKNU5 

CHNG2 

1126 

CHNG25 

CHNG5 

114D 

CHNG6 

CLRSP4 

02B7 

CLRSPC 

CLSFY2 

11FE 

CLSFY4 

CLSMA5 

0F27 

CLSMA6 

CMNDT 

095C 

CMNPNT 

CNTRI5 

8633 

CNTRI6 

CNTSPC 

060'B 

CNTTT2 

COLCNT 

0042 

C0MAN2 

C0MAN6 

0824 

C0MAM7 

CPRSTR 

14EA 

CRF 

CROM 

118D 

DATSTR 

DEFMA2 

0DA5 

DEFMA3 

DELC35 

05D3 

DELCH3 


0444 

047C 

006C 

0D7F 

109F 

1328 

134C 

1361 

13A2 

00DE 

07C5 

05B2 

1242 

112F 

1160 

02A8 

1208 

0F2E 

00E6 

0643 

1075 

07E5 

0828 

00FC 

151A 

0DAD 

05CF 








■ 
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DELCH4 

05DC 

DELCHR 

05B7 

DELIM 

00BR 

DFMFLG 

008F 

DIVRPP 

0E44 

DIVER0 

0E29 

DIVER1 

0E2F 

DIVER2 

0E36 

DIVER4 

0E3B 

DIVERT 

0E25 

DIVFL2 

0092 

DIVFLG 

0091 

DOCAP 

0077 

DOCM 

0073 

DONE 

006R 

DOTRB 

0B10 

D0TAB2 

0B1D 

DIJBB 

0C18 

DUBH 

0C04 

DUBH1 

0C07 

DUBH2 

0C0C 

DUBW 

0C0F 

DWFLG 

008E 

EBFEND 

00E2 

ENDLIN 

00BF 

EV 

007E 

EXCHR 

0062 

EXTBUF 

167F 

FETC22 

06F3 

FETC25 

0706 

FETC35 

071R 

FETC36 

071F 

FETC37 

0722 

FETC45 

072R 

FETC47 

0733 

FETC48 

073B 

FETC49 

0744 

FETC55 

0753 

FETC57 

0767 

FETC58 

0772 

FETC59 

0778 

FETC65 

0787 

FETC75 

07R5 

FETCH2 

06DD 

FETCH3 

070R 

FETCH4 

0723 

FETCH5 

0748 

FETCH6 

077B 

FETCH7 

079C- 

FETCH8 

07C3 

FETCHR 

06D4 

FILFLG 

00C8 

FILL 

0CB2 

FINCM 

0357 

FINCM1 

0865 

FINCM2 

0868 

FINCM4 

086B 

FINIS4 

0953 

FINISH 

0951 

FINMRC 

0083 

FIXBF4 

0655 

FIXBFE 

0646 

FIXVR3 

1216 

FIXVR4 

1218 

FIXVRL 

1209 

FIXWD 

1414 

FIXWD1 

1437 

FIXWD2 

1439 

FIXWD3 

143F 

FLBF 

006B 

FLUSH 

092E 

FLUSH2 

0939 

FLUSH3 

0942 

FLUSH5 

094D 

FLUSHB 

092R 

FNDLS2 

0F5R 

FNDLST 

0F53 

FNDMR1 

0F3E 

FNDMR2 

0F4R 

FNDMR4 

0F5O 

FNDMA6 

0F52 

FNDMRC 

0F35 

FNDNUM 

11A8 

FNTR 

0CF5 

FNTR2 

0CFC 

FNTR4 

0D11 

FNTR5 

0D19 

FNTR6 

0D26 

FSTRVL 

O0R6 

FSTRRM 

0097 

FTCHN1 

11CF 

FTCHN2 

11D2 

FTC'HNM 

11B6 

GCNT 

0046 

GDNUM 

005fl 

GETC22 

069E 

GETC25 

06R7 

GETCH1 

0693 

GET CH2 

069R 

GETCH3 

06RB 

GETCH4 

06BB 

GETCH5 

06C4 

GETCH6 

06D1 

GETCHR 

068C 

GETIN 

0B75 

GIBUF 

1444 

GIBUF2 

1448 

GIBUF4 

145F 

GIBUF6 

1469 

GTNR4 

0FRB 

GTNR6 

0FB0 

GTNRM 

0F8R 

HIPG 

0096 

IF 

10R5 

IF1 

10R3 

IF3 

10B6 

IF35 

10BC 

IF4 

10C7 

IF5 

10D4 

IF55 , 

10E6 

IF6 

10F2 

IF8 

1105 

IFFLG 

00SR 

IFN 

10ED 

IFN2 

10F1 

IFV 

10D0' 

INC 

005F 

INCH 

02e6 

INCH15 

14CB 

INCHR 

14BR 

INCHR0 

14C3 

INCHR1 

14C8 

INCHR2 

14D6 

INCHR3 

14DE 

INCHR4 

14E1 

IND 

0048 

IND2 

0084 

INDEX 

00F6 

INDNT 

0RDB 

INDNT2 

0REB 

INIT 

02C0 

INIT25 

02C4 

INIT3 

02FB 

INIT4 

031R 

INMRC 

0EE3 

INMRC2 

0EE5 

INMRC4 

0EF3 

INMRC5 

0EF7 

INNUM 

0070 

INSS44 

0684 

INSSP2 

05E7 

INSSP3 

05ED 

INSSP4 

0601 

INSSP5 

06OR 

INSSPC 

05DD 

INTRO 

0212 

INTRO0 

0219 

INTR03 

0259 

INTR04 

026R 

INTR05 

027C 

INTR06 

029D 

INTRP 

0D97 

JNKCNT 

009D 

JST 

0RR1 

JST1 

0RB1 

JST15 

0RB6 

JST2 

0RB7 

JST3 

0RC1 

JST4 

0RCR 

JSTF25 

03RF 

JSTF55 

03D3 

JSTF63 

03E0 

JSTF65 

03EB 

JSTF95 

041D 

JSTFV 

0397 

JSTFV1 

03R8 

JSTFY2 

©3RD 

JSTFV3 

03B8 

JSTFY4 

03C8 

JSTFV5 

03D1 

JSTFY6 

03D6 

JSTFY7 

03F0 

JSTFV3 

03FR 

JSTFY9 

0412 

JUST 

00D6 

LAST 

1FF4 

LDIV 

0055 

LDNSK2 

11DR 

LDNSK4 

11E3 

LDNSKP 

11D8 

LEFT 

006D 

LEFTM 

0RCB 

LEFTM1 

0RD8 

LEFTM2 

0RDR 

LENT25 

0B05 

LENTH 

0RF1 

LENTH2 

0B01 

LENTH5 

OB0F 

LFM 

004E 

LINBU2 

16AC 

LINBUF 

15E4 

LINCNT 

004D 

LINS 

048F 

LINS2 

0494 

LINS3 

049F 

LINS4 

04RC 

LINS5 

04B6 

LINS6 

04B8 

LINS7 

04C5 

LLN 

084B 

LLN2 

009F 

LMRCRO 

1FF2 

LOWPG 

0095 

LPPSTR 

1566 

LSTRVL 

00R4 

LSTNUM 

0063 

LSTRRM 

0099 

MRCCNT 

003B 

MRCEND 

00FR 

MRCNRM 

00R0 

MACOVF 

084E 

MACROS 

19F4 

MRCTBL 

1972 

MRCTMP 

00R2 

MBFLG 

0066 

MBFPNT 

0067 

MCEND 

0F7D 

MCEND2 

0F37 

MCNT 

00BC 

MINDI3 

007D 

MNTH 

004C 

MON 

0209 

MSC 

0OD2 

MTEND 

19F2 

MULTS 

0R8B 

MULTS2 

0R94 

MULTS3 

0R96 

NEDL 

0CE6 

NEDL1 

0CEE 

NEDL2 

OCF0 

NEDL4 

0CF4 

NEG 

0071 

NEGT 

0089 

NMREGS 

6040 

NO CAP 

0C72 

NOCR 

0069 
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